CONTROL DATA 



CONTROL DATA® 
CYBER 70 SERIES 

6000 SERIES 
COMPUTER SYSTEMS 



APL'CYBER 
REFERENCE MANUAL 



REVISION RECORD 


REVISION 


DESCRIPTION 


A 


Original printing 


(6-73) 




B 


Reflect current implementation; support KRONOS 2. 1 operating system. This printing obsoletes 


(7-73) 


revision A. 






































































































































Publication No. 
19980400 





® 1973 

by Control Data Corporation 

Printed in the United States of America 



Address comments concerning this 
manual to: 

Control Data Corporation 
Technical Publioations Department 
4201 North Lexington Avenue 
Arden Hills, Minnesota 55112 

or use Comment Sheet in the back of 
this manual. 



PREFACE 



1 nis la Liie reiexelnjt; inaiiuai lur Ajrj_.^-t„ i rixbri, version i.u, je^r'i^-^i^ i±sii,n runs on an 
models of CONTROL DATA® CYBER 70 Series and 6000 Series computers, and is current- 
ly implemented for use with the KRONOS operating system. No knowledge of any operating 
system or hardware characteristics is required other than that included in the appendixes 
of this manual. 
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INTRODUCTION 



APL - THE LANGUAGE 

The Language APL and its acronym are derived from the mathematical language propound- 
ed by K. E. Iverson in a book entitled "A Programming Language" (John Wiley and Sons, 
Inc. 1962). 

The Language is essentially a large set of primitive, i. e. , predefined, functions for man- 
ipulating and performing computations on data. The notation used is very compact. A 
single APL character conveys the primitive function desired, and function expressions 
consist of an infix notation associating the arguments with the function being called. Prim- 
itive functions have one or two arguments. One argument appears to the right of the APL 
character conveying the desired function. If a second argument is required it appears to 
the left of this character. Arguments can themselves be function expressions. Evaluation 
of tile expressiori piooeeds frorri right to left. 

Unlike functions in other programming languages, most primitive functions in APL are 
defined for general arguments. While scalar (single valued) arguments are possible as a 
special case, in general the arguments are array data structures and the functions operate 
in a predefined manner on these structures as a whole. 
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THE APL*CYBER SYSTEAA 

The implementation of APL on CYBER computers is known as the APL*CYBER system. 

The principal component of the system is a conversationally interactive interpreter design- 
ed for time sharing terminal operation. Upon gaining access to the system, APL expres- 
sions keyed on a terminal are evaluated and results, if requested, are displayed immediately. 

In addition to operating the system as a sophisticated desk calculator, the following features 
endow it with the capabilities of a complete programming system. 

• A procedure exists for a user to define his own APL functions in terms of APL 
expressions using previously defined or existing functions. 

« A user library facility exists whereby such functions and previously input or pro- 
cessed data can be stored for subsequent use of for interchange with other users. 

« Extensive diagnostics, debugging aids and editing facilities exist to make the APL 
programmer extremely productive. 

« Methods exist whereby a variety of terminal types can gain access to the 
APL*CYBER system and exchange data and programs. 

« Batch users may also employ the system in batch mode. 
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SPECIAL NOTATION 

The following notation is not part of the APL language but rather is used in describing that 
language. 

-f J- indicates the contents are optionally included, 

\ } select one. 

• •• repeat as required, 

< > indicates a descriptive term rather than a literal APL construct, 

t-^ indicates identity, i. e. , that the expression on the left has the same 

value as the expression on the right. If used in the context of a constraint, 
the expressions must have the same value for the constraint to be satis- 
fied, 

NOTE ON EXAMPLES 

Where examples are shown in this manual, a clear workspace (see ')CLEAR') is understood 
to exist prior to input of the first line, unless otherwise stated or implied by the example 
itself. 
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DATA 



ARRAYS 

All data in APL is handled in the form of arrays. An ARRAY is a finite, ordered set of 
data elements, arranged in a multi -dimensional structure of mutually orthogonal coordinate 
axes. 

The number of dimensions, or coordinate axes, is called the RANK of the array. This 
number is necessarily a non-negative integer. The value of a particular dimension is the 
number of element positions within the array along the corresponding coordinate axis, and 
is termed the LENGTH of the coordinate axis. This number is also necessarily a non- 
negative integer. The set of coordinate lengths is called the SHAPE of the array. 

For example, a 3 by 4 matrix is a rank 2 array. Its dimensions, or coordinate lengths, 

are 3 and 4, and its shape is 3 4. 

All elements in the array must be of the same DATA TYPE (see below). The VALUE of 
an array is determined by its data type, its shape, and the values of all the elements in 
the array. 

DATA TYPES 

Two data types are defined in APL*CYBER: numeric and character. The value of a num- 
eric data type is a single number (e. g. , the number 5. 3 ). The value of a character data 
element is a single character (e. g. , the character "A", or "+", or "l"). 

ARRAY STRUCTURES 

The most primitive array is an array of rank zero. This structure is the classical 
SCALAR of tensor analysis, and is analogous to a point in geometry. A scalar has no 
dimensions and exactly one element. 

Example: 

*+ ( a numeric scalar) 
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The most common multi -element array is the one -dimensional array. This structure, 
called a VECTOR, is analogous to a line in geometry. As a line may have arbitrary length, 
so a vector may have an arbitrary number of elements. 

Example: 7 1.3 5 (a three -element numeric vector) 

A MATRIX is much like a vector, except that the structure has two orthogonal coordinate 
axes instead of one, as in a plane versus a line. A matrix can be thought of as a set of row 
vectors arranged along a vertical coordinate axis, or as a set of column vectors arranged 
along a horizontal coordinate axis. The first coordinate axis, by convention, is usually 
considered the "vertical" axis, and the second the "horizontal" axis. 

Example: 1 7 12 (a 2 by 3 numeric matrix) 

16 2 3 

Higher rank arrays are built in a similar fashion. The language does not define any limit 
to the rank of an array. However, the APL*CYBER implementation will not allow the user 
to create arrays of rank greater than 127 . Any attempt to exceed this limit will result in 
an error message (usually a RANK ERROR). 

ELEMENT POSITION 

The position of an element within an array is determined by a set of ordinals, one for each 
coordinate axis, called the COORDINATES of the element. The value of a particular co- 
ordinate is the ordinal for the position of the element on the corresponding coordinate axis. 

The ordinal values used to designate a specific element depend on the setting of ORIGIN 
(q. V. ). In ORIGIN 1 the first position is denoted by 1, the second by 2, etc. 

VISUAL CONVENTIONS 

In vectors, the last (and only) coordinate axis is considered to be horizontal, with the left- 
most position being considered the first. Thus, if X is the vector 7 5 10 , X [1] (see 
INDEXING) is the element 7. 

In matrices, the last coordinate axis is considered to be horizontal, and the second -to-last 
(namely, the first) is considered to be vertical. The first column is the left-most, and the 
first row is the top row. 



2-2 19980400 A 



For example, suppose that X is the 3 by 4 array below: 

1 7 12 5 

16 2 10 9 

11 4 3 15 

Then, X[2;3] (see INDEXING) is the element which is in position 2 on the first coordinate 
axis (namely, row 2) and position 3 on the second coordinate axis (namely, column 3). The 
value of this element in the above example is 10. 

For arrays of rank 3 or greater, visual conventions do not exist, because today's displays 
are two-dimensional (however, see DISPLAYING DATA). 

ABSOLUTE ELEMENT ORDER 

For most operations, the elements of an array do not form a well-ordered set. That is, 
given any two elements in an array, it is not generally possible to state which comes before 
the other. However, two important exceptions should be noted. 

ihe RAVEL function (q. v. ) creates a vector of the elements in an array. The iirsi 
element of the resulting vector is the element in the first position on all coordinate 
axes of the argument. The elements following this are chosen along the last co- 
ordinate axis of the argument. When these are exhausted, they are followed by the 
elements along the last coordinate axis in the next position of the next-to-last co- 
ordinate, and so on until all coordinate axes have been accounted for. This ordering 
is called ROW MAJOR order. 



Example: 



X 

1 2 3 f 

5 6 7 8 

9 10 11 12 

,X 
123456789 10 11 12 
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The RESHAPE function (see RESHAPE) creates an array of the specified shape 
from the elements in the order given. This operation may be thought of as an 
inverse operation to RAVEL. 

Example: 

3 tpi 2 3 1 5 6 7 8 9 10 11 12 
12 3 4 
5 6 7 8 
9 10 11 12 

SHAPE DETERMINATION 

The shape of an array is represented by a vector, each element of which is the value of 
the corresponding dimension of the array. The shape of a 3 by 4 matrix is 3 4. The 
shape of a six-element vector is 6. In general, the shape of an array may be found by the 
monadic Rho function (see SHAPE): 

pi 3 7 6 12 4 

6 

X-*-2 3pl 3 7 6 12 4 

pX 

2 3 

NUMBER OF ELEMENTS 

The number of elements in an array may be found from the shape of the ravel of the array: 

P .X 

6 

An array which has one or more zero length dimensions contains no elements and is said 
to be EMPTY: 

X->-2 3pl 3 7 6 12 4 

pX 
2 3 

P .X 
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Since a scalar has no dimensions, its shape is empty. Note the difference between a 
scalar, which has one element and no dimensions, and an empty array, which has no ele- 
ments and one or more dimensions: 

P ,X 

p , SHAPE 



RANK DETERMINATION 

Since the rank of an array is the number of dimensions, it is also the number of elements 
in the snape ol the array: 

RAllK*-o ,p;r 

Further, since PX is always a vector, the ravel is unnecessary, and the rank may be 
found from: 

RANK-^ppX 

Example: 



1 



9 



ppl 3 7 6 12 4 

Z'i-2 3pl 3 7 5 12 4 
ppZ 

pp 5 
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ARRAY CREATION AND VARIABLES 



Arrays are created by the APL interpreter by evaluating APL expressions. An APL 
expression is a syntactic construct of APL language elements which together totally detail 
the construction of an array. 

Evaluation of an APL expression involves one of three processes within the interpreter, 
singly or in combination depending on the complexity of the APL expression. 

1. APL language elements exist from which literal expressions may be formed. 
These are interpreted directly and result in arrays having the value as stated 
in the expression. 

2. An expression may state a function to be called with designated arguments. The 
interpreter executes the function which in turn produces an array as its result, 

3. An expression may reference a currently defined variable. Such reference results 

in the interpreter making available an array having the value of the one being 
referenced. 

LITERAL EXPRESSIONS 

Literal expressions allow explicitly valued scalars and vectors to be directly expressed. 

LITERAL CHARACTER EXPRESSIONS 

A character scalar is expressed by placing the desired character in quote marks, thus: 
'A' 

A character vector is expressed by placing zero, two, or more characters within quote 
marks. 

MB' a 2 -element character vector 

' ABODE ^ a 5 -element character vector 

» « a -element character vector 

To indicate that a character appearing within quote marks is the quote character itself, two 
consecutive quote marks are used to represent the single chswacter. 

'DON' '2" a 5 -element character vector DON'T 

' ' ' • a character scalar ' 
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LITERAL NUMERIC EXPRESSIONS 

A numeric scalar is expressed by formulating a numeral from the 13 APL characters 
0123456788. ~E 

a Unsigned integer and decimal numerals are formed in the usual manner. 

« A negative value is indicated with the negative symbol character "~" (read as 
'negative' or 'neg'). 

« The character E is used to convey base 10 exponentiation and can be read 
'times 10 to the'. 




exponent must be an integer 

Note: embedded spaces 
are not allowed. 

Numbers having any number of digits may be expressed, but the system will retain values 
of only 14 (in some cases 15) significant digits. Proper scaling will always take place. 

Numbers conveying a magnitude exceeding the representation capability of CYBER com- 
puters will result in a DOMAIN ERROR. (See appendix C. ) 

A numeric vector is expressed by formulating a list of two or more numbers each separat- 
ed by one or more space characters. 

2.37 5493 "2. 86E47 

1 -element vectors, -element numeric vectors and arrays of rank 2 or greater cannot 
be conveyed in a literal expression. Such structures can only be expressed by a call of a 
suitable function with appropriate arguments, or by referencing an existing array having 
such a shape. 
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VARIABLE DEFINITION: SPECIFICATION 

The process of variable definition is called specification . The APL language syntax is: 

<identifier> « — <APL expression> 

- — J-* ""» "■ "^'■'■^"'■^ ■'(= i-icaicu wiiusc iiaiiie is me luenuiier given, ana wnose value 

is the value of the array created by the APL expression. 

Examples: 

COUNT-^1 
The variable COUNT now has the value of the numeric scalar 1. 

TEXT-<-'THIS IS IMPORTANT* 
The variable TEXT now has the value of the character vector: *THIS IS IMPORTANT* 
RULES FOR FORMING IDENTIFIERS 

• Names may be from one to 112 characters in length. 

• The first character must be an alphabetic character (A to Z, a to z, A or g ). 

• The remaining characters (if any) may be any alphabetic character or digit, or the 
underscore character ( ). 

REFERENCING VARIABLES 

Whenever the identifier of a variable appears in an APL expression, it refers to that 
variable. On detecting the presence of a variable identifier, the APL interpreter makes 
available an array having the value of the variable being referenced. 

If the variable has not been defined, a reference to it results in a VALUE ERROR. 

A*-2. 3 ~57. 3 4E3 
XA17a«-A 

In the first line above, A is specified as the variable identifier for the vector 2. 3 ~57. 3 
4E3. The appearance of A in the second line refers to the variable stated above. The 
reference makes available a vector 2. 3 ~57. 3 4E3 which is then associated with a data 
identifier XA17a. Two variables now exist having the same value, one identified by A, the 
other by XAl7a. SuiDsequent occurrences of A or XAl7a in APL expressions refer to the 
corresponding variables. 
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RESPECIFICATION 

If a new value is given to the variable A by means of a subsequent specification, for example: 

A«-'NEW A' 

the previous value of A is no longer referenceable, and hence no longer exists. Note that 
there are no restrictions on the type or shape of the value newly specified to A. It need bear 
no relation as to type or shape of the previous value of A. A new specification for A in no 
way alters the specification for XAl7a. It still is associated with vector 2. 3 "57. 3 4E3. 
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DISPLAYING DATA 



SYNTAX 

The APL language provides a facility for displaying data. The language syntax for con- 
veying this process is: 

n«-<APL EXPRESSION> 

The character Q is called QUAD. If the left-most operation indicated in an APL source 
line is other than a specification, display of the evaluated APL expression is implicit, and 
the construct □« — need not be present in this case. 

n-^2 + 2 2 + 2 

DATA OBJECT DISPLAYS 

All data displays consist of a tabular arrangement of character representations of the 
elements of the array. For character data, each data element, being a character, is dis- 
played as that character (or by the mnemonic for that character where it cannot be formed 
on the terminal being used; see appendix B). 

Note that character arrays are displayed without enclosing quote marks: 

M' 
A 

'ABC 
ABC 

Note that single quote marks are displayed as such: 

lilt 
I 

'DON' '2" 
DON'T 

For numeric data, each data element is represented by a suitable format of characters 
which together convey the value of the numeric element. 

All displays begin at the left margin and element representations are displayed left to right 
in element order. Scalars are displayed in the same manner as a one-element vector. 
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Each rank 1 subarray display occupies at least one display line. If the number of charac- 
ters required to display a complete rank 1 subarray exceeds WIDTH (see SYSTEM 
COMMANDS), its display will continue on subsequent lines with an appropriate indication of 
continuation (usually an indentation of 6 character positions). Each data element represent- 
ation will be complete on one line. 

Rank n-1 subarrays of rank n arrays are displayed in structure order. 

Between subarrays of rank 2 and higher a blank line is displayed. 

NUMERIC ELEMENT FORMATTING 

The amount of significance used in formatting numeric arrays is controlled by an environ- 
mental parameter known as DIGITS. The normal setting for this parameter in APL*CYBER 
is 10. Numeric elements are formatted into one of two possible forms, decimal or 
exponential, depending on the value to be represented and on the setting of DIGITS. A 
rounded representation of the element value in the form of DIGITS digits is obtained, the 
left-most being non-zero unless the value is zero. Any value whose magnitude when round- 
ed as above is less than 10 and not less than 0.001 will always be expressed in decimal 
form regardless of the setting of DIGITS. 

Numeric Formiat Rules 

« No more than DIGITS digits may be printed, unless they are leading zeros. 
« No more than three leading zeros may be printed. 

Decimal Form 

[-] <integral part> [ . <fr action part>] 

« Magnitude scaling is indicated by insertion of a decimal point after the appropriate 

digit position. 
« If the magnitude of the element value is less than 1, the integral part is represented 

by a single zero. 

• Trailing zeros in the fraction part are suppressed. 

• If the fraction part is entirely zero, the decimal point is suppressed. 

• Negative values are indicated with a leading negative symbol character". 
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Examples: 



) DIGITS H 



WAS 10 



1.23«t8 



1.235 



1+2.927 



«t2.93 



.123 



0.123 



7.0004 
7 

.0012365 
0.001237 

".0012365 
"0.001237 

.00099997 
0.001 



Exponential Form 

In all cases where decimal form is unsuitable, exponential form is used. 

<coefficient> E <exponent> 

« The coefficient is formed from the DIGITS digits stated above for decimal form. 

« A decimal point is inserted to the right of the left-most digit. Coefficients thus 
always have a magnitude less than 10 and greater than or equal to one. 

« Suppression of trailing zeros and the decimal point, and use of the negative symbol 
are the same as for decimal form. 

• The exponent is an integer with appropriate value to indicate proper scaling of the 
coefficent as formatted, with a leading negative sign if the exponent is negative. 

Examples: 



) DIGITS 14 
WAS 10 

12348 
1. 23554 

"429273.8 
"4. 29355 



9999. 5 



154 
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NUMERIC DATA OBJECT FORMATTING 

All numeric data objects are formatted as if they were matrices. A vector is formatted as 
a matrix with one rank 1 subarray. A scalar is formatted identically to a one- element 
vector. An array B of rank greater than two is treated as a restructured matrix Bl formed 
as follows: 

Bl-»-( (x/"i+pB),~l+p5)pB 

Elements within each column of the above matrix are formatted uniformly as follows: 

« The same element representation form (decimal or exponential) is used. Unless 
one or more elements must be formatted in exponential form, either by the criteria 
stated in numeric element formatting or as a consequence of the following format- 
ting rules, decimal form will be used. 

« Decimal points are aligned (i. e. , occur in the same character position) for all 

element representations. This may entail appending one or more spaces to the left 
and one or more zeros (and decimal point) to the right of the fraction part as 
appropriate. If this causes a violation of the Numeric Format Rules stated above, 
exponential format is used for the columin. 



DISPLAYING NUMERIC DATA OBJECTS 

Recall that all data objects consist of line displays of the rank 1 subsets in subset order, 
with element representations appearing left to right in element order beginning at the left 
margin. 

Since all elements within each column of the numeric matrix are uniformly formatted and 
aligned, all such element representations will appear in vertically aligned and uniformly 
formatted columns, appearing left to right in matrix column order, with two blanks between 
adjacent columns. 

Where displays are continued on indented lines, these should be visualized as additional 

columns that conceptually belong increasingly to the right of the display. See example on 
opposite page. 
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Example: 



) DIGITS 5 
WAS 10 

) WIDTH 60 
WAS 72 

X-^. 275396 l«t.3^3 692738 123it5 678 

X 
0.275396 14300 692738 12345 678 

) WIDTH 30 
WAS 60 

0.275396 14300 692738 12345 

67 8 (display continuatiori indented) 

Y^Z 2p42 1.7£'9 "173.52 6.8345F-10 .9 
) WIDTH 6 
WAS 3 
I 
'*2.00 1.7000F9 
"173.52 6.8345F"10 
0.90 O.OOOOffO 
) DIGITS 4 
WAS 5 

Y 
4.200£'l 1. 700^9 

"l.735£'2 6.835F~10 
9.000£'~1 COOOfi-O 
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COMPOSITE DATA OBJECT DISPLAYS 

Several evaluated expressions can be displayed in sequence in one composite display by 
arranging the expressions in desired display sequence and separating them with semicolons: 

<expression>; <expression>;. . . ; <expression> 

Each APL expression is evaluated starting with the right-most and proceeding to the left- 
most. 

If the display syntax □< — occurs within the expression, the expression evaluated at that 
point is displayed immediately. 

After the left-most expression is evaluated, a composite display is output for all those 
expressions set up for display in reverse order to that in which evaluated; i.e., in the 
left to right order in which the expressions appear on the line. 

For consecutive displays of scalars or vectors, output is displayed contiguously on the 
same output line. Displays of expressions of higher rank are displayed in a vertical 
format. Continuation lines are indicated in the same manner as for a single display. 

Both numeric and character expressions may be formatted in the same composite display. 
This feature provides the main use of composite displays. With this feature, result dis- 
plays can be annotated with character descriptions in the style of an edited report. 



Examples: 



QUANTITY*-3 
UNIT_PEICE-*-l . 5 

'COST OF ' '.QUANTITY;' UNITS IS ' iQUANTITYyUNIT_FRICE 
COST OF 3 UNITS IS H.5 

5+n-«-i3; 'Z;fC" ;B*2 1 9 lU-^' X7Z' -,2 3pi6 
XYZ (first QUAD) 

12 3 (second QUAD) 

6 7 8ZXC2 1 9XYZ- 

12 3 y (composite display) 

U 5 6 
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PRIMITIVE FUNCTIONS 



The basis of the APL language is a large set of predefined functions. Because they are 
part of the language, they are termed primitive functions. 

NOTATION 

The notation used in describing the syntax of APL constructs is as follows: 

« The right argument of a function is indicated by the meta-identifier "B", It is 

understood that any valid APL expression may be used in place of this meta-identi- 
fier. 

9 The left argument of a function (if one exists) is indicated by the meta-identifier "A", 
as for "B" above. 

« If the function produces a result, that fact is indicated by the meta-construct "i?"^ ". 
It is understood that no actual specification of the result need take place. 

f The function itself and any associated APL characters required are indicated by the 
symbols in question. These symbols must be used as shown. 

« Function Indices (see INDEXED FUNCTIONS) are indicated by the meta-identifier 
"K" enclosed in square brackets following the function to be indexed. Any valid APL 
expression may be substituted for "K". If "K" is elided, the square brackets must 
also be elided. 

If a syntax involves a general primitive function, this function is represented by the 
meta-symbol "f". Any valid APL primitive function may be substituted for "f", 
subject to the restrictions specified in the case in question. 

If a second general primitive function is used in the syntax, it is represented by the 
meta-symbol "g", as for "f", 

Other syntactic constructs are indicated by a description of the construct enclosed 
in angular brackets (e. g. , < index list> ). It is understood that any syntactic con- 
struct following the rules specified in the case in question may be substituted for the 
meta-construct above. 

Exceptions to this notation are indicated where they occur. 
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Example: 

In this example, the function "<j>", modified by the function index "[K]", with right argument 
"B" and left argument "A", produces a result "R". Following this form, here is a possible 
usagie of the above function: 

3<))Ci]l 2 3 4 

4 12 3 

Since the result was not specified after completion, it was displayed. 

SYNTAX 

Primitive functions are of two types: monadic ( i, e. , having one argument), and dyadic 
(i. e, , having two arguments). The syntax for calling each type is: 

monadic: 

<special APL character>^rgument expression> 
dyadic: 

<argument expression><$pecial APL characterXargument expression> 

Most of the special APL characters used in designating monadic APL primitive functions 
are also used in designating some dyadic APL primitive function. In most cases, but not 
all, there is some similarity between the function procedure invoked in each case. Th® 
actual function called in each instance is, however, quite distinct. 

DOMAIN AND RANGE 

The class of argum^ents and the class of results of a given function are called its domain 
and range , respectively. 

The domain for character arguments and the range for a character result is the APL charac- 
ter set. 

The largest numeric class currently defined for APL*CYBER is the set of real num.bers 
for which an exact or approximate representation exists on CYBER computers. Complex 
and other non-real number classes are not currently defined for any APL primitive 
functions, 
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Certain numeric arguments and results of function are confined to a subclass of the defined 
real numbers, namely the integers. Ordinals (see below) are members of this class. 

Other numeric arguments and results of functions are confined to a subclass of the integers 
consisting of the integers and 1. This subclass is known as the logical or Boolean class. 

/O T3 1 —.■. U««« \ 

voce J-IWVJl-CcXli liLlLXXL.>Ci. O. / 

Each of the foregoing classes is clearly a subclass of each class preceding it, and any 
function defined on a class clearly applies to any of its subclasses. 

Any argument supplied to a function which is not in its domain of definition or for which the 
result is not in the defined range of definition results in a DOMAIN ERROR message. 

ORDINALS 

Ordinal numbers are the numbers used to state position or ranking in an ordered set. The 
names of these positions are first, second, third, etc. 

It is customary to assign values to represent these positions identical to those used to 
represent the positive integers: 

First 1 

Second 2 

Third 3 

It is sornetimes more convenient to assign the values as follows: 



First 





Second 


1 


Third 


2 



Once the value for first has been decided upon, second is assigned the next higher integer 
value, and so on. 

The two schemes indicated are classified according to the value assigned for first, and are 
known respectively as ORIGIN 1 and ORIGIN 0. 

The scheme to be followed can be designated by using the system command )ORIGIN 
(see ORIGIN command). 

Various APL functions are defined which use ordinal arguments. Some others produce 
ordinal results. 

The domain of definition of such functions for such arguments is the positive integers for 
ORIGIN 1 and the positive integers and zero for ORIGIN 0. 
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BOOLEAN NUMBERS 

Boolean numbers are truth values and are usually defined for logical systems of two values 
as true and false . It is customary by convention, to represent the Boolean 'number' 
(i. e, , truth value) true by the number 1 and false by 0. 

This convention has been followed in the implementation of APL. The domain of definition 
of functions defined for such arguments and the range of those functions yielding such re- 
sults are the numbers 1 and 0. 

Such functions must be given arguments whose elements consist of the appropriate number 
of ones and zeros. 

It should be understood that the meaning of a 1 or is that of the truth value - true or false 
when it is the argument of a Boolean function, regardless of the fact that it may be the re- 
sult of some prior numeric computation. 

CONFORMABIUTY 

As stated in the introduction, a key feature of APL is the fact that the primitive functions 
are defined for general arguments; i.e., the arguments are arrays, usually of more than 
one element, and the functions operate in a predefined manner on the array structure as a 
whole. 

For most primitive functions there is some constraint placed on the generality of the argu- 
ment(s). Any rule which limits the generality of shape of an acceptable argument of a 
function is called a conformability rule . Conformability rules are classified as either sin- 
gular or dual. 

• Singular Conformability: A conformability rule for a monadic function or one which 
pertains to a specific argument of a dyadic function independent of any shape for the 
other argument is said to be singular . 

• Dual Conformability: A conformability rule for a dyadic function which states a 
relationship between the shapes of the two arguments is said to be dual . Certain 
dual conformabilitj'- rules also implicity convey a singular conformability require- 
ment for one of the arguments. 

Conformability rules are stated as part of the description of each primitive function where 
one or more apply. 



5-4 19980400 A 



Violation of a conformability rule results in a RANK ERROR or LENGTH ERROR as approp- 
riate unless overriding rules are applicable. 

OVERRIDING CONFORMABILITY RULES 

Conformability rules are subject to the following overriding rules, whereby a conforma- 
bility rule may be relaxed or somewhat altered. 

The following rules have precedence in the order listed. 

1. The following singular conformability rules are inviolate: 

« A scalar cannot be indexed. 

, The left argument of DYADIC IOTA must be a vector. 

2. A scalar is treated as a one -element vector where singular conformability requires 
a vector argument. This process is known as scalar extension. 

3. A one-element vector is treated as a scalar where singular confornnability requires 
a scalar argument. 

"i. vviicX'c; <x ^jtKx'fXi- colli wliiicLtJiiiLV 1 U Lt^ t;^ioo>r}, ct oCciictl wi OiiC " dciiitiit vCci/lwix cii ^LiiiitriiL 

is treated for function execution as a restructured array having the minimum rank 
and number of elements required to meet all conformability requirements. This is 
another form of scalar extension . The restructured shape will not result in an empty 
data object unless that is specifically required. 

Exceptions: 

• The left argument of TAKE, DROP, EXPAND and TRANSPOSE, and the right 
argument of COMPRESS. 

This rule, when applied to INDEXED SPECIFICATION (q. v. ), relates to the implied 
shape of the index list taken as a whole , and not to individual elements which make 
up the list. Note that this may relult in an indexed expression with bad form if 
multiple specification to the- same indexed element is implied. 
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ORIGIN 

In an ordered set, specific members are designated by an integer called an ordinal speci- 
fying the order position in the set. The ordinal of each member is one greater than the 
ordinal of its predecessor. The ORIGIN parameter is the value designated to the ordinal of 
the first member of the set. APL*CYBER allows the ORIGIN to be set to either or 1. 

The normal setting for ORIGIN in APL*CYBER is 1. To change the setting of ORIGIN, see 
the system command )ORIGIN. 

The first element of the result returned by monadic IOTA (q. v. ) is ORIGIN. Thus the 
setting of ORIGIN may be found from 1 1 : 

\1 
1 

) ORIGIN 
WAS 1 

il 


Since the ORIGIN designates the value of the ordinal of the first member of any set, any 
function that uses ordinals as an argument or returns ordinals as a result is said to be 
origin dependent. 

Currently there are six primitive functions defined in A PL that return ordinals as a result. 
These are: 



1. 


monadic iota 


iB 


2. 


dyadic iota 


A\B 


3. 


monadic query 


?B 


4. 


dyadic query 


A?B 


5. 


grade up 


iB 


6. 


grade down 


n 



The primitive function dyadic transpose requires the left argument to be a vector of ordinals. 

dyadic transpose A^B 
All forms of indexing employ ordinals as indices. 

1. expression indexing A[B] 

2. indexed specification A [B] « — 

3. indexed primitive functions f [K]B and Af [K]B 
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SUBARRAY OPERATIONS - INDEXED FUNCTIONS 

Nearly all primitive functions in APL are defined for array arguments. In most cases, 
the basic operation is defined in terms of arrays of a specific structure, and extended to 
arrays of other structure by performing the operation in parallel on all basic subarrays of 
the array given. 

All scalar functions are defined in terms of scalars. For higher rank arrays, the opera- 
tion is carried out using corresponding scalar subarrays of the argument(s) (see SCALAR 
FUNCTIONS). 

Many non-scalar functions are defined in terms of vectors (catenation, reduction, compres- 
sion, etc. ). If the array given is of lower rank, it is extended, if possible, in a mauiner 
appropriate to the function in question. If the array is of higher rank, the operation is 
carried out using vector subarrays of the argument(s). 

In this case, however, the choice of the elements which constitute each subarray is non- 
trivial. For a rank N array, there are N possible coordinate axes along which the vector 
can be chosen. 

In order to resolve this question, a Function Index is used. This takes the form of an index 
expression, enclosed in square brackets, following the function in question: 

R«-f[K]B 
or R<-Af[K]B 

The index expression must evaluate to a one-element vector ordinal, designating the co- 
ordinate axis along which the vector subarray is to be chosen. From this it is apparent 
that for an index K, and an array of rank N, the domain of K is: 

K€iN 

In most cases, if an index is not specified for the function, it defaults to the last coordinate 
axis, namely: 

The functions which mav be so indexed are: 



/ 


Compress 


\ 


Expand 


f/ 


Reduction 


^ 


Reverse, Rotate 


dyadic , 


Catenate 
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For these functions, an alternate form exists in which the index defaults to the first co- 
ordinate axis, rather than the last: 

XO-fil 

The symbol for these functions is formed by overstriking the normal function symbol with 

a minus sign (-), 

/ — > / 

f/ > f/ 

♦ > e (note disappearance of vertical bar) 

Currently, these alternate forms may not be explicitly indexed, 

RELATIVE FUZZ: USE IN RELATIONALS 

In the comparison of any two numeric data elements the following three relational cases 
are always mutually exclusive: 

A>B 

A=B A and B scalars 

A<B 

To consider A to be equal to B only when the internal representations of the argument are 
identical would be undesirable for the following reasons: 

, Numbers in CYBER series computers can only be represented with 14 significant 
digits of accuracy (15 digits for integers with a magnitude less than 2*48). 

, The deviation between the represented value and the exact value is proportional to 
the magnitude of the represented value. 

« If successive operations are applied to such data elements, the inherent error in 
such represented values will propagate to the result such that the relative deviation 
from the theoretical result could be several times the initial relative deviation. 

Alternatively, the data initially supplied may be significant to much less than 14 
digits even though internally represented as such. 

For these reasons, it is usually desirable for numeric relational operations to be treated 
as follows: 

« Consider A equal to B if A lies anywhere in the inclusive range B± |B x factor. 

, If A is smaller than the lower limit of this range, consider A to be less than B. 
Otherwise, consider A to be greater than B. 
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This is exactly how numeric relational operations are performed in APL. The factor used 
is called FUZZ. The range B x FUZZ is termed the relative FUZZ. Note that the range of 
the relative FUZZ is proportional to the magnitude of B. Thus, the relative FUZZ for a B 
of zero is zero. 

The following prim^ltive functions also perform comparisons between data elements in the 
same manner as the relationals: 




with numeric arguments 

However, i andi'do Rot use FUZZ. 

The normal setting for FUZZ in APL*CYBER is = 2* "43 (=sl. 137E"13). 
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>^ 



USE OF FUZZ IN RELATIONALS 



A>B 
(A-Bi-\B^FUZZ)>0 



t^ 



RELATIVE FUZZ 
B^FUZZ 



A=B 
((i4-S+lBxFyzZ)iO)A(il-B-|BxPyZZ)aO 



A IS IN THE INCLUSIVE RANGE B±\BxFUZZ 



RELATIVE FUZZ 



ot 



A<B 
(A-B-\B*FUZZ)<0 



B+iBxpyzz 



B 



B-lBxFUZZ 



EQTli 



AiiB-*-MA>B)\/A==B 
AiB-*->-(.A<B)vA=B 
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ABSOLUTE FUZZ 

The following primitive functions use FUZZ itself (ABSOLUTE FUZZ) in determining their 
results. 

FLOOR 

Conceptually, FLOOR is a monadic function which returns the largest integer less than or 
equal to its argument. 

In fact, FLOOR adds the value of FUZZ to the argument and then takes the conceptual 
FLOOR of that. 

The conceptual FLOOR is the behaviour of FLOOR with FUZZ set to zero. Let L represent 
the conceptual FLOOR. Then: 

(.\.B)-*->-lB+FU^Z 

CEILING 

In a similar manner, ceiling operates as follows: 
([B)*-*[B-FUZZ 

INTEGER DOMAIN 

Many APL primitive functions require integer arguments (Boolean and ordinal domains are 
subsets of the integer domain). 

The test for acceptability as integer is: 
((rs)-LB)=0 

If the above relationship is true. B is accepted as the integer LB. If the accepted integer is 
a member of the required domain no domain error report is issued. 

Regardless of the setting of FUZZ all result values defined to be in integer domain will be 
represented exactly if their magnitude is less than 2*48. 

GENERAL NOTES 

Note that for functions employing ABSOLUTE FUZZ, the fuzzing is of uniform width for all 
argument values and is based solely on the setting of FUZZ. 

Also note that for such functions no acceptable setting of FUZZ has any effect on arguments 
greater than or equal to 2*48. 
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USE OF ABSOLUTE FUZZ 



FOR THIS DESCRIPTION FJ/ZZ = 0.125 



FLOOR 
R->-lB 



FUZZ 



-s? 



FUZZ 



Rt-2 



CEILING 
R-*-TB 



Rt-3 



-if 



■^ 



R-*-l 



i 



R->-0 



R-^~l 



R-*-2 



R-t-1 



R-*-0 



+ 
B 



•3.125 
-2.875 

2.125 - 
1.875 

1.125 
0.875 

0.125 
"0.125 



INTEGER 
INTEGER DOMAIN-<->'((.[B)-lB)=0 
Rf-(.\10)IB'] 



FUZZ 
FUZZ 



3 R-*-3 




DOMAIN ERROR 




2 i?-<-2 



DOMAIN ERROR 



^ 



1 i?*l 



+ 
B 
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SEED 

The functions ROLL and DEAL (q. v. ) generate pseudo-random integers. Each element so 
produced is generated from an environmental parameter known as SEED, The algorithm 
used is such that a given combination of SEED and range (supplied by the argument(s)) pro- 
duces a unique, predictable result element. However, the process of producing the element 
alters the value of SEED, so that the distribution of many elements produced sequentially 
is pseudo-random and flat. 

Likewise, successive uses of these functions produce results which, while in fact com- 
pletely determined, appear random and independent. Thus, "random" test sets may be 
reproduced by setting SEED to the same value prior to each test. To set this parameter, 
see ")SEED". 
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SELECTION PRIMITIVE FUNCTIONS 



A /T¥— IT -I— ly-^ mx#— VI»T -1— ITTTfcT*'^ mT/" VT^T _!_ ^ 1_ ^_1_ 1.1^ _ TX J— J._ 1_1__ _J^ _T i._ T S 3 

A OlLJ-j-ri.«_ X ivjiN ruiw^ iK^iN IB uiie m wiiiuii tiie i-eauii (juiiaiaia auieiy ui eieiiieiita aup(jiieu 
from the argument(s), and fill elements. 

For certain selection operations, specifically TAKE and EXPAND, fill elements are re- 
quired to create an array of the required shape from the argument given. For numeric 
arrays the fill element is zero, and for character arrays the fill element is the space 
(blank) character. 

All selection functions are capable of operating on arrays of any data type, and produce a 
result of the same data type„ 

For dyadic selection functions other than CATENATE (q.v. ), one argument (usually the 
right) is used to supply the array from which elements are to be selected, and the other to 
control the particular selection being performed. Unless otherwise specified, the domain 
of these control arguments is integer . 

In general, restrictions on data type mentioned above or in the definition of the individual 
selection functions do not apply if the argument in question is empty. 
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INDEXING 

syntax: 



conformability: 

result shape: 
definition: 



R->-BZ<INDEX LIST>2 

The index list is of the forni: 

T ' T • • T 

\* 2* ' ' ' ' N 
Each index in the index list is separated from the next by a semi- 
colon. Thus, there are N-1 semicolons in an index list of N indices. 



{ppB)=N 
(ppB)2l 



(number of indices) 

(this restriction may not be circumvented by 

scalar extension) 



i pR )■*■-*■(. pi ^)Ap 1 2") O^n 

The result is formed by selecting the subarray indicated by co- 
ordinates given in the index list. The positions selected along the 
jth coordinate axis are given in the index I.. The portion of the 
shape imposed on the result by that coordinate selection is the 
shape of I.. 

If an index position selected does not exist in the array B, an 
INDEX ERROR results. 

Indices may be elided. In this case, the index defaults to: 

X,-^i(pB)C/] 

That is, all index positions along the jth coordinate are selected 
once, in position order. 

Since the indices are ordinals, the result is ORIGIN dependent 
(see ORIGIN), 
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examples: 



JT-nt 3 7 5 8 

a:c3] 

7 

XLS 2] 
8 3 

Jrt2 3pl 3 2 H 2 5] 

IV 7 3 
5 3 8 

INDEX ERROR 

V 

XL61 
XLxOl 
(blank) (result is empty) 

X*2 3p4 3 7 5 a 1 
X 

4 3 7 

5 8 1 

2:1:1] 
RANK ERROR 

V 

XLll 

yr 1 . < T 

A L X t X J 

A t_ ^ » X ^ J 

5 8 

;f[2 1;3 2 3 1] 
18 15 
7 3 7 4 

A:C ; 2 ] (first index elided) 

3 8 

^C;.2] 
3 
8 

) ORIGIN 
WAS 1 

ATCl;!] 
8 

X[0;0] 
U 
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INDEXED SPECIFICATION 



syntax: 



domain: 



conformability; 



result shape: 
definition: 



R-< rXL< INDEX LIST>lf-B 

The underlined portion of the syntax represents the indexed speci- 
fication proper, while the remainder of the syntax is required for 
consistency with the definition of other primitive functions. 

B must be of the same data type as X. 

(,ppX)=N where N is the number of items in the iadex list. 

(ppj:)^l 

(dB)*-»-(pJi).(pJ2) pjy 

Rules pertaining to the index list are the same as for Indexing. 

X must be an existing defined variable. 

Indexed specification selectively replaces the elements of the array 
X indicated by the indices, with the elements of B corresponding to 
the positions in the implied index array. The operation has bad form 
and is not defined if multiple elements of B are specified to the same 
position in X. 

When the specification is complete, the result (available as an argu- 
ment to the next function) is the array B, not the array X or the 
indexed array X. 

As with Indexing, the operation is ORIGIN dependent. 
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examples: 



15 3 



5 >^ 3 



113 



Xfl 2 3 

Ji:C2]-^5 

X 

XZl 21-5 4 
X 

XZl 2]-<-l 
X 

ri-ATCl 2 3-<-l 
Y 



(scalar extension of B occurs) 



(result is B, not X) 



Xt-2 3pl 2 3 t 5 6 
X 

12 3 

4 5 6 

J:[;2]-«-9 8 

X 
19 3 
4 8 6 

X121-9 8 
RANK ERROR 

V 

Arr2]-H9 8 
Jf[;U]-<-9 8 
ILWEX ERROR 

V 

ZC;«t]-^9 8 
) ORIGIN 
f/yl5 1 

;f 

19 3 
4 8 6 

A:C;2]-e4 5 

;f 

19 4 
4 8 5 
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MONADIC RHO: SHAPE 



syntax: 
result shape: 

definition: 

note 1: 

note 2: 



R*pB 

The result is a vector with N elements, where N is the number of 
dimensions in the array B, 

The jth element of R is the length of the jth coordinate of B (see 
ARRAYS). 

Although Shape is not a selection function, it is included here 
because it is integral to the discussion of selection functions. 

The rank of an array is found by applying the Shape function twice. 

RANKB*-ppB 
For examples, see the section on ARRAYS, 
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MONADIC COMMA: RAVEL 



syntax: 
result shape: 

definition: 

examples: 



The result is a vector of N elements, where N is the number of 
elements in B. 

The result consists of the elements of B, selected from it in row 
major order. For further discussion, see ARRAYS. 



5 

5 
11+7 

1 H 7 

13 2 
7 8"+ 



X 

,x 

Y 

z 



13 2 7 8 4 

1 3 
7 8 



2 5 
9 H 



,V 



13782594 
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DYADIC RHO: RESHAPE 



syntax: 

domain: 

conformability: 

result shape: 
definition: 



identity: 



R*-ApB 

i42 and integer 

(Pi4)<127 (APL*CYBER limitation) (pp/l) = l 

= x/A if = 5</pB 

If B is a vector, and the number of elements in the array indicated 
by dimensions A is exactly the number of elements of B, then the 
result is an array of shape A such that: 

If the result requires N elements, and there are more than N 
elements in B, only the first N are used. 

If there are insufficient elements in B to fill the array indicated by 
A, the elements are chosen cyclically from B until the array R is 
filled. This process is known as Cyclic Replication . 

If B is not a vector, then: 

E-i-^A p , B 

( ,5)+-«-(v/pB)pB 



;S:-^2 3 8 14 7 j 7pX 

6pX 2 3 8 11+72 

2 3 8 14 7 2 hpX 

2 3pZ 2 3 8 1 

2 3 8 4 7 2 3 

14 7 OpAT 

2 3 IpA' (blank) 

2 (lO)pjr 

3 2 

8 2pi0 

DOMAIN ERROR 
1 V 

4 2p xO 
7 

Ipif 



(result is empty) 
(result is a scalar) 



(A must be empty if 
B is empty) 
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DYADIC COMMA: CATENATE 



syntax: 



domain: 



Three cases exist: 






(reverse indexed) 



A and B must be of the same data tjpe. K follows the rules for 
Function Indices (see INDEXED FUNCTIONS). 



(ppi4)=ppB 

(ppil) = l-fppS 

In this case, B is treated as Bl obtained from: 

RBl*-(K*vppA)\p3 (See Expand) 

RBlZKl-*-! 

Blt-RBlpB 



conformability: 



result shape: 
definition: 



(l+ppi4)=ppB 

This case is the mirror image of the above case. A is treated as 
Al obtained from: 

RAl*(.K*\ppB)\pA 

RAlLKl-^1 

Ali-RAlpAl 

In the discussion below, the first case only is considered. 
Behavior of the other two extend from the first via the above rules. 

((.K*\ppA)/pA)-^^(K*\ppB)/pB 

(ppi4)2l 

(ppB)^l 

(pi?)-^("l + p4),(~l + p/})+~l + pB 

If A and B are vectors of length M and N respectively, then the 
result R contains M+N elements, the first M of which are the 
elements of A, and last N are the elements of B. 

If A and B are arrays of rank 2, vector subarrays are selected 
along the Kth coordinate axis, and catenated as above to form vec- 
tors along the Kth coordinate of the result. 
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Since K is an index, the result, if K is not elided, is ORIGIN 
dependent. 

If T is used, the default coordinate is the first, rather than the last. 



examples: 



2 3,4 5 
2 3 4 5 

X-*-2 3pl 2 3 4 5 6 

r-«-2 3p7 8 9 10 11 12 

X 
12 3 
4 5 6 

7 
7 8 9 
10 11 12 

12 3 7 8 9 

4 5 6 10 11 12 

;r.Ci]:?[i;] 

12 3 

4 5 6 

7 8 9 

^,[137 

12 3 

4 5 6 

7 8 9 
10 11 12 
X-,Y 

12 3 

4 5 6 

7 8 9 
10 11 12 



(first coordinate used) 



INDEX 



WAS 1 

1 2 

4 5 

7 8 

10 11 

1 2 

4 5 

7 8 

10 11 



1 
4 

1 
4 



jr,co]y 

ERROR 

V 

Z,C0]y 
) ORIGIN 

X,iOlY 

3 

6 

9 
12 
X-,Y 

3 

6 

9 
12 
Jr.ClDT 

7 8 9 
10 11 12 
X,I 

7 8 9 
10 11 12 
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) ORIGIN 1 
WAS 

Z,12 13 
1 2 3 12 
4 5 6 13 

7,C1]12 13 
LENGTH ERROR 

V 

J,Cl]12 13 

X,Cl]12 13 IH 
12 3 
4 5 6 
12 13 14 

;r,5 

12 3 5 (scalar 5 extended) 

4 5 6 5 

Z-*-2 2 2p 1234567 8 

ppZ 
3 

Z.l 2 
RANK ERROR 

V 

Z.l 2 (difference in ranks > 1) 
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TAKE 



syntax: 
conformabillty: 

result shape: 
definition: 



(pi4)-^-»-ppfl 

This may not be circumvented by scalar extension unless (ppB) = l 

(pR)'t-\A (see ABSOLUTE VALUE) 

Two cases exist: 

("ordinary" take) 
("too much" take) 



• (UCJ:)s(pB)CJ] 

• (lACJ])>(pB)CJ] 
"ORDINARY" TAKE 



If B is a vector, and AiO the result is the first A elements of B. 
If A<0 , the result is the last \A elements of B. 

If B is an array of rank i2, and AC J]iO. the result is formed by 
selecting the firstilCJ] positions along coordinate axis I. If 
ALI']<0, the last MCJJ positions are selected. 

"TOO MUCH" TAKE 

If AZll^O, the elements of B occupy the first ilC J] positions along 
coordinate I of the result. If ilCJ]<0, the last I ACT] positions 
are used. 

When the selection is complete, fill elements are placed in any 
unoccupied positons of the result. 



Take is not ORIGIN dependent. 



(See examples on next page. ) 
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examples: 

3 + 1 2 3 •♦ 5 
12 3 

"3 + 1 2 3 «f 5 
3 4 5 

X-*-Z 4pil2 

X 
12 3 4 
5 6 7 8 

9 10 11 12 

2 3+J 
12 3 

5 6 7 

"2 "3+J 
6 7 8 

10 11 12 

2 "3+J 
2 3 4 

6 7 8 

5 + 1 2 3 
12 3 

•D» ,"4+MB<7« 
D ABC 

4 "5+J 
12 3 4 
5 6 7 8 
9 10 11 12 


2 3 + 5 
5 (scalar extension) 
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DROP 



syntax: 
conformability: 

result shape; 
definition: 



<.oA)=ooB 

This may not be circumvented by scalar extension, unless (ppB) = l 

( pi? )*-»•( pB)-U 
Two cases exist: 

• (Ui:i])s(pB)CJ] 

• (UCI])>(pfl)CJ] 

In this case, A is treated as if it were AI obtained from: 
Xl-«-(xyi)x(pB)L |A (see signum, minimum) 

If B is a vector, and X^O , the result is all but the first A elements 
of B. If A<0 , the result is all but the last 1 4 elements. 

If B is an array of rank a, and 4[J]i:0, the result is formed by 
selecting all but the first AZIl positions along coordinate axis I of B. 
If i4CI'3<0, all but the lastlXCJ] positions are selected. 

Drop is not ORIGIN dependent. 

(See examples on next page. ) 
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examples: 

2+1 2 3 4 5 
3 4 5 

"2+1 2 3 4 5 
12 3 

X-*-3 4pil2 

X 
12 3 4 
5 6 7 8 
9 10 11 12 

"1 0+Jf 
12 3 4 
5 6 7 8 

5+1 2 3 
(blank) (result is empty) 

5+X 
LENGTH ERROR 

V 

5 + X 

y-t-5 i+x 

Y 
(blank) ■ (Y is empty) 

3 
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COMPRESS 

syntax: 

domain: 
conformability: 



result shape: 



definition: 



R*A/B 

A must be Boolean. 

(ppA)=l 
(ppB)ai 

(pil)-^^(pB)CX3 

(p/?)i:i]= (pB)CI] FOR I*K 
+/A FOR I=K 

If B is a vector, the result is formed by selecting BC J] if ilC J3=l, 
or ignoring it if AC J] =0, 

If B is an array of rank i2, the result is formed by using vector 
subarrays of B along the Kth coordinate axis. 

Since K is an index, the result, if K is specified, is ORIGIN depend- 
ent. If / is used, the default coordinate axis is the first rather 
than the last. 

(See examples on next page. ) 
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examples: 



1 3 



AC 



12 3 



1 1/1 2 3 

1 l/'ABC" 

1 1 1/1 2 3 

0/1 2 3 



(blank) 



(result is empty) 



1/1 2 3 
12 3 

0/1 2 3 

(blank) 

X-*-Z 4pil2 

12 3 4 
5 6 7 8 
9 10 11 12 

10 1 Q/X 
1 3 
5 7 
9 11 

1 l/Cl]X 



(scalar extension of B) 
(scalar extension of A) 



9 10 11 12 

1 l/Jf 

12 3 4 

9 10 11 12 

) ORIGIN 

WAS 1 

1 1/X 

12 3 4 

9 10 11 12 

1 i/ci];!r 

LENGTH ERROR 

V 

1 i/Ci]z 



((pX)Cl] is now 4, not 3) 
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EXPAND 

syntax: 
domain: 



conformability: 



result shape: 



definition: 



E-^A\ZK1B 
R-*-A\B 

A must be Boolean. 

(ppil)=l 
(pp5)il 
(pB)[A] =+/i4 

(pi?)CJ]= ((pB)[J] for I*K 
I pA for l=x 

The result R is such that: 

{A/ZK1R)'*-*B 
The positions of R defined by (~A)/CX]if contain Fill elements. 

Since K is an index, the result if an index is specified is ORIGIN 
dependent. If / is used, the index defaults to fhe first coordinate 

axis. 

(See examples on next page. ) 
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examples: 



1 1\1 2 
10 2 

10 1 1\MBC7' 
A BC 

1 1\1 2 

1 2 

1 0\1 2 
LENGTH ERROR 

V 

1 0\1 2 
1 1\2 

2 2 



(B should have only 1 element) 
(scalar extension of B) 



X-*-2 3p 1 6 

X 
12 3 
if 5 6 

1 1 i\jr 

10 2 3 
if 5 6 

1 i\ci]Jr 

12 3 

«* 5 6 

1 1\X 
12 3 

4 5 6 

)ORIGIJ} 
VAS 1 

1 1\X 
12 3 

4 5 6 

1 i\[i]jr 

LENGTH ERROR 

V 

1 i\Ci];sr 



((pADCl] is now 3, not 2) 
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MONADIC ROTATE: REVERSAL 



syntax: 



Rf9B 



rjformabilit"* f nnS^^i. 



result shape: 
definition: 



identity: 
examples: 



(pi?K-^pB 

II B is a vector, the result is formed by selecting the elements of 
B in reverse order. 

If B is an array of rank >2, the result is formed by reversing 
vectors selected along the Kth coordinate axis of B. 

Since K is an index, the result if the index is specified is ORIGIN 
dependent. If • is used, the vectors are selected along the first 
coordinate axis of B. 

(HKIHKIB)^B 



<J»1 2 3 



3 2 1 



3 2 1 
6 5 If 


X-*-2 3pi6 


4 5 6 
12 3 


♦ Cl3Jf 


4 5 6 
12 3 


9X 


WAS 1 

4 5 6 
12 3 


) ORIGIN 
9X 


3 2 1 
6 5 4 


Hilx 
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DYADIC ROTATE 

syntax: 

conformability: 

result shape: 
definition: 



identity: 



RfA9B 

(ppB)sl 
(pil)^(X*ippB)/pB 

(.fiR)-^-*-pB 

If B is a vector, and A^O, the result is fornled by cyclically rota- 
ting the elements of B, A positions to the left: 

NHpB)\A 

R-*-lNiB),N^B 

If A<0, the elements are cyclically rotated to the right: 

N--(.pB)l \A 

R*(.N^B)»N*B 

If B is an array of rank 22, the vectors to be rotated are selected 
along the Kth coordinate axis of B. 

Each element of A specifies the rotation to be applied to the cor- 
responding selected vector subarray of B. 

Since K is an index, the result if the index is specified is ORIGIN 
dependent. If « is used, the index defaults to the first coordinate 
axis. 

(.(.-A)HKlA^ZK-iB)^B 
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examples: 



2*1 2 3 '^ 5 

3 1+512 

"2<^1 2 3 4 5 

4 5 12 3 

5<t>l 2 3 4 5 
12 3 4 5 



BAH 



■l<j>MffD« 



Z-^3 4pil2 

X 
12 3 4 
5 6 7 8 

9 10 11 12 

1 2<t>X 
12 3 4 
6 7 8 5 

11 12 9 10 

l<t>X 
2 3 4 1 
6 7 8 5 

10 11 12 9 

l<t)[l]^ 
5 6 7 8 
9 10 11 12 

12 3 4 
lex 

5 6 7 8 
9 10 11 12 
12 3 4 






) OR I GIN 
WAS 1 

loX 
5 6 7 8 
9 10 11 12 
12 3 4 



) ORIGIN 1 
WAS 

1*C1]X 
5 6 7 8 
9 10 11 12 

12 3 4 

X-*-2 3 4pi24 

X 
12 3 4 
5 6 7 8 
9 10 11 12 

13 14 15 16 
17 18 19 20 
21 22 23 24 



2 
1 

3 
8 
9 



P-^2 3p 

P 



3 

P<^X 
1 2 
6 7 



"10 12 3 



10 11 12 



14 15 16 13 
19 20 17 18 
24 21 22 23 
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MONADIC TRANSPOSE, DYADIC TRANSPOSE 



dyadic syntax: 
monadic syntax: 



Hi-AlsiB 



R-t-^B 



domain: 



(in this case, the left argument defaults to 

^^(~2 + pB).<t>(-2LppB)+pfl 

AeiPPB 



conformability: (pil)=ppS 

(this may not be overridden by scalar extension. ) 
Case 1: A has no repeated elements. 

result shape: (pfl)-<-^(pB )[ii4] 

The transpose operation simply reorders the coordinate axis of 
the argument as indicated by the left argument. 

A useful rule-of-thumb for doing transpose operations is as follows: 
Write down the elements of pB; below it write the elements of A; 
on a third line, place the elements of pB in the position indicated 
by A. This line is then pi?. 

Example: For the operation 

3 1 2^4 5 6pxl20 




5 6 ^t 
The shape of the result is 5 6 4. 

The effect of reordering the coordinates may be seen as follows: 

B-*-2 3pi6 

B 
12 3 
1+5 6 

B-t-HtB 

The elided left argument defaults to 2 1, so the shape of the result 
is 3 2. 
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The first coordinate has become the last, and the last has become 
the first. Thus, in the display the "rows" appear to have become 
"columns", and vice-versa. 



1 4 

2 5 

3 6 



Case 2 : A has repeated elements, 
domain: AeAxA 



(see DYADIC IOTA) 



result shape: (p/?) Cl] = L/(il=J)/pS FOR ALL Jcippi? 

(ppi?) = l[i] + rM (see REDUCTION) 

In the previous case, the transpose reordered the argument coor- 
dinate axes. Now, they are not only reordered but some of them 
are combined into a smaller set of new coordinate axes (as indicated 
by the rule-of -thumb given for Case 1). 

The Ith coordinate axis of the result is formed from the coordinate 
axis(il=J)/ip4of the argument array B. The resulting axis is the 
major diagonal of the axis from which it was formed. Only the 
elements along this axis are chosen for the result. The number of 
element positions along this axis is necessarily equal to the length 
of the shortest of the axes from which it was formed, i. e. , 
L/(pB)C(il=J)/ipil] 

Since the left argument consists of coordinate axis indices, the re- 
sult, if A is specified, is ORIGIN dependent. 

For example, consider the operation 

R->-2 1 1^4 5 6pil20 
Using the rule -of -thumb: 

4 5-, 6- 




choose 
smallest 

T k 

The shape of the result is 5 4. 
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identities: 



The effect of combining coordinates maybe seen as follows. 
Consider: 

The result is selected from the diagonal: 
R 



B 



15 9 

12 3 

U 5 6 

7 8 9 



This is the classical trace of B. 

For case 1 - 

If B is of rank < 1: 

{Af^B)-*~*-B where A in this case must be il 



examples: 



)1 2 3 



12 3 







X-2 


2p'ABCD* 






X 




AB 








CD 




^x 




AC 








BD 












Xf2 


3 4pt24 






X 




1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


22 


23 
IS(X 


24 


1 


5 


9 




2 


6 


10 




3 


7 


11 




H 


8 


12 




13 


17 


21 




l«t 


18 


22 




15 


19 


23 




16 


20 


24 





(A defaults to 1) 



(A defaults to 1 3 2) 
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3 2 l^X 



1 13 




5 17 




9 21 




2 1«* 




6 18 




10 22 




3 15 




7 19 




11 23 




4 16 




8 20 




12 24 






1 2 2^X 


1 6 


11 


13 18 


23 




2 3 3^J 


DOMAIN ERROR 




V 




2 3 3<»jr 




) OR I GIN 


WAS 1 






1 2 2^X 


DOMAIN ERROR 




V 




1 2 2^J 




1 iw 


1 6 


11 


13 18 


23 




^X 


1 5 


9 


2 6 


10 


3 7 


11 


1 8 


12 


13 17 


21 


14 18 


22 


15 19 


23 


16 20 


24 



<A\A is 1 2 3) 



(AiA isO 1 1) 



(A defaults to 2 1) 
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SCALAR PRIMITIVE FUNCTIONS 



VCnCKML 



The class of functions whose primary definition is in terms of operation on one or two 
scalars is called the SCALAR FUNCTIONS. 

SCALAR MONADIC functions are defined in terms of a single scalar, while SCALAR 
DYADIC functions are defined in terms of a pair of scalars. 

For all scalar functions, the following rules hold: 

monadic syntcix: R-*-tB 

dyadic syntax: B-t-AtB 



^omaiu; 



range: 



conformability: 
result shape: 



A and B must be aumeiic (unless otherwise specified). 

R is numeric (unless otherwise specified). 

If R is outside the range of real numbers representable on the 
machine, a DOMAIN ERROR results. For APL*CYBER, this 
range is "1.265^322 to 1.265^322 (approximately) 



(pi4)-^-*(pS) 
(pi?)-^-^pB 

(pi?)-<-»- pB IF (ppB)ippA 
0A IF (pp5 



)^PpA 1 
)<ppi4 J 



for scalar dyadics 
for scalar monadic s. 

for scalar dyadics 



MONADIC DEFINITION 

The result is formed by applying the function to each element of B, and placing the result- 
ing element in the corresponding position in R. 

DYADIC DEFINITION 

The result is formed by applying the function to each element of B and the element in the 
corresponding position in A, and placing the resulting element in the corresponding 
position in R. 
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SCALAR MONADIC FUNCTIONS 



MONADIC PLUS: IDENTITY 



syntax: 

definition: 

examples: 



The result is the value of the argument. 



+ 23 



23 



+-1.5 2.7 1.7E~3 
"1.5 2.7 0.0017 

MONADIC MINUS: NEGATION 

syntax: R-*--B 

definition: The result is the negated value of the argument. 

examples: -23 

"23 

-"1.5 2.7 1.7F"3 

1.5 "2.7 "0.0017 
MONADIC MULTIPLY: SIGNUM 

syntax: E-^-y^B 

definition: The result is ~1, or 1 depending on whether the argument is 

negative, zero or positive. 

examples: x2 3 

1 

""l.S 2.7 1J?"3 
"1110 
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MONADIC DIVIDE: RECIPROCAL 



syntax: 


it-*-TD 


domain: 


B*0 


definition: 


The result is the reciprocal of the argument. 


examples: 


*5 




0, 2 




*"10 .5E3 




"0.1 0.002 




*0 




DOMAIN ERROR 




V 




*0 


MONADIC POWER- 


EXPONENTIAL 


syntax: 


R-^*B 


definition: 


The result is the exponential of (e to the oowe 



e is approximated by 2. 718281828459045. 



examples: 



*1 
2.718281828 

*1.5 
4.l^8168907 1 

*1EB 
DOMAIN ERROR 

V 

*100000000 



(result outside machine range) 
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MONADIC LOGARITHM: NATURAL LOG 

syntax: R-*-*B 

domain: B>0 



The natural logarithm function is the inverse of the exponential 
function. 

examples: •*! 

1 

• 1 


• ~1 
DOMAIN ERROR 

V 

• "1 
MONADIC MINIMUM: FLOOR 

syntax: i?-<-LB 

definition: The result is the greatest integer less than or equal to the argument. 

The result of this function is dependent on the setting of FUZZ. 

examples: Ll.5 

1 

L~1.5 3 ~5 "t.l "H.9 5.1 5.9 

"2 3 ~5 "5 ~5 5 5 

Ll-0.1 1E~15 
Q ^ (second element within FUZZ of 1) 
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MONADIC MAXIMUM: CEILING 

syntax: R-*-{B 



definition: 



examples: 



The result is the smallest integer greater than or equal to the 
argument. The result of this function is dependent on the setting 
of FUZZ. 



ri.5 



r"5 3 "5 ~H.l "4.9 5.1 5.9 
"5 3 "5 ~4 ~4 6 6 
MONADIC MODULUS: ABSOLUTE VALUE 

syntax: R-*-\B 

defintion: The result is the absolute value of the argument. 

examples: j~1.5 

1.5 

|"3 15 

3 15 

MONADIC CIRCLE: PI TIMES 



syntax: 
definition: 

examples: 



R-oB 

The result is TTtimes the value of the argument. Ti' is represented 
as approximately 3. 14159265358979. 



ol 
3.1«*159265'+ 

075.3*180 
1. 314232327 



(number of radians in 75. 3 degrees) 
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FACTORIAL 

syntax: 

domain: 

definition: 



Ri-IB 

If B < 0, B must not be integer. 

The result is obtained from applying the Gamma function to the 
elements of B as follows: 

RfGAMMA B+1 
Note that if B is a non-negative integer, the result is that of the 
classical factorial function. 



MONADIC QUERY: ROLL 

syntax: 

domain: 

definition: 



10 1 2 3 H 
1 1 2 6 24 

!"0.5 3.7 10 
1.772453851 15.4314116 3628800 

B must be a positive integer. 



examples: 



The result is an integer pseudo-randomly selected from integers 
\B. The roll function result is dependent on the settings of SEED 
and ORIGIN. 

?5 



?5 5 5 5 5 5 5 
3 14 2 15 4 

?1 
1 

) ORIGIN 
WAS 1 

?1 




(the setting of ORIGIN) 
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MONADIC TILDE: NOT 

syntax: 
domain: 



definition: 



examples: 



Rt-~B 

B must be Boolean. 

R. is Boolean, 

The result is a 1 if the argument is zero, otherwise the result is 
zero. 

~0 



~1 1 1 
10 1 

~0.5 
DOMAIN ERROR 

V 

~0.5 



(argument not Boolean) 
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SCALAR DYADIC FUNCTIONS 



DYADIC PLUS: ADDITION 

syntax: 
definition: 



R^A^■B 

The result is A plus B. 



examples: 2 + 3 

5 

1 2+"l 5 
7 

"2+6 7 4.5 
4 5 2.5 

DYADIC MINUS: SUBTRACTION 



syntax: 

definition: 

examples: 



R-i-A-B 

The result is A minus B. 

2-3 



(scalar extension of A) 



1 15 12-10 



'9 5 2 



(scalar extension of B) 
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DYADIC MULTIPLY 

syntax: 

definition: 

examples: 



The result is A times B. 



1 10 lOOxl 2 3 
1 20 300 

l£200xlJ?200 
DOMAIN ERROR 



DYADIC DIVIDE 

syntax: 
domain: 
definition: 
examples: 



ir200xlJF200 



R*-A*B 

The result is A divided by B. 

2*3 

0.666666667 

2 3 H*H 3 2 
0.5 1 2 

0*0 

DOMAIN ERROR 

V 

0*0 



(result outside machine range) 



(B must be non-zero) 
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DYADIC MODULUS: RESIDUE 

syntax: i?+-yl|B 

range: R^O 

IF A*0,R<\A 

definition: If Q is the largest integer such that: 

then: R-*-B-QxA 

This result may be expressed: 

R'<-B-(\A)xlBi\A FOR A*Q 

Ri-B FOR A = 

Note that in the case A = 0, B < 0, no non-negative solution for R 
exists, and a DOMAIN ERROR results. 

examples: 10 I 15 . 3 

5.3 

1| 12. 34 10 1.5 
0.34 .5 (fractional part of B) 

2| "1 1 2 3 4 
10 10 10 (result 1 of B is odd) 

0| 5 
5 

oTs 

DO MA If! ERR on 

V 

1 ~5 (negative result not allowed) 
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DYADIC POWER 

syntax: 
definition: 



examples: 



R-*-A*B 

The result is A raised to the power B. Note that if A is negative 
and B is not an integer, the result is not real, and a DOMAIN 
ERROR results. 

In APL^CYBER, if A is negative, B must be a positive integer. 

2*3 
8 

"10*"1 12 
DOMAIN ERROR 

V 

"10*"1 12 

0.01 2 4 9*0.5 
0.1 l.iHt213562 2 3 

0.001 1 8 27*t3 
0.1 12 3 

"1*0.5 
DOMAIN ERROR 

V 

"1*0.5 
0*0 

1 



(square root of A) 



(cube root of A) 



(if A is negative, B must be integer) 
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DYADIC LOGARITHM 

syntax: 
domain: 

definition: 

identity: 

examples: 



R-*-A»B 

A>0,A*1 
B>0 

The result is the logarithm of B in base A. 

B-f-A-kA^B 

2*3 
1.58^962501 

10»0.1 1 10 1^2 
"10 12 

10«*1 
0.it3«t29't4819 

0*0 
DOMAIN ERROR 



V 

0*0 
1»1 
DOMAIN ERROR 



(common log of e) 



(A and B must be positive) 



DYADIC MAXIMUM 

syntax: 

definition: 

examples: 



1»1 



(A must not be 1) 



R-<^A!^B 

The result is the largest of A or B. 
2r3 



1 3 5r~2 7 t 
17 5 

0r"3.5 15.2 
1 5.2 



7-12 



19980400 B 



DYADIC MINIMUM 

syntax: E->-A\.B 

definition: The result is the smaller of A and B. 

examples: ^^^ 

2 

1 3 5L~2 7 4 
"2 3 4 

0L"1 12 
"10 
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DYADIC CIRCLE 

syntax: 

domain: 

definition: 



R-*-AoB 

A must be integer, AH ,A^~7 

The result is the trigonometric function of B indicated by A. The 
"normal" trigonometric functions are assigned to positive values 
of A. while their "inverse" is designated by the corresponding 
negative value of A. 

The domain of the "inverse" functions is usually the range of the 
"normal" function. The possible values of A and their correspond- 
ing functions are listed below, along with their range and domain. 



A 


Function 




Domain 


Range 


A 


Function 


Domain 


Range 





(1-B*2)*0. 


5 


■l 


thru 1 


thru 1* 










1 


sin B 








~1 thru 1 


~1 


arc sin B 


-1 thru 1 


"Tthrul 


2 


cos B 








"1 thru 1 


"2 


arc cos B 


~1 thru 1 


thru Tf 


3 


tanB 










'3 


arc tan B 




-tf TT 

J thrur 


4 


(1+B*2)*0. 


5 






1 thruco 


"4 


( 1+B*2)*0. 


-p-thru "1 
"{1 thru- 


thruoo 


5 


sinh B 










"5 


arc sinh B 






6 


cosh B 








1 thru* 


~6 


arc cosh B 


1 thru. 


thru** 


7 


tanhB 








-1 thru 1 


"7 


arc tanh B 


~1 thru 1 





identity: 
examples: 



((-A)oAoB)->~fB for B>o 

203 
"0.9899924966 

1 2 300 0.25 0.5 0.75 
0.7071067812 "l 

~502.3 
1.570278543 

3OO0.5 
DOMAIN ERROR 

V 

3OO0.5 



(cosine of 3 radians) 



(sin 5 . cos 5. tan'5) 



(inverse hyperbolic sine of B) 



(tan J is infinite) 
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COMBINATION 



svntn V 



P-e.A ! B 



definition: 



ihe result is obtained by applying the factorial lunction to the 
arguments as follows: 



examples: 



For A^O and B^A , the result may be expressed in terms of the 
Beta function: 

/?-«-*( B-4)x (4+1) 5^2*^4 B-A 

If A and B are integers, the result is the nuraber of combinations 
which can be made from B things taken A at a time. In this case, 
if A>B , the result can be seen to be zero. 

2!3 



2 U 616 H 2 
15 10 

2.5 "2. '7. 3 "5 
32.61766703 
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EQUAL, NOT EQUAL 

syntsix: 

domain: 

range: 

definition: 



examples: 



! = 3 



i?-«-il=B (equal) 

R-»rA*B (not equal) 

No restriction. 

R is Boolean. 

Equal the result is one if A is equal to B, otherwise the result 
is zero. If A and B are numeric, the result is FUZZ dependent. 

Not equal R*^A=B 



2*3 



110 



M + l' = M + >t' 



2=M 



1 



M + l«*'il + +' 



2*'A^ 



Oil 



3.5 1=1 1 



l=l+lff 15 



OjelS 15 
1 

010 1* 0110 
11 



3.5 1*1 1 



10 



(A is within relative FUZZ of B) 



(relative FUZZ of zero is zero) 



(exclusive OR of A and B) 
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OTHER RELATIONALS 




syntax: 


lt-*-A<B 




SfAiB 




S*AiS 




R-*-A>B 


range: 


R is Boolean. 


definition: 


Less than - tl 



examples: 



(less than) 

(less than or equal) 



(ar 

»6* 



3I.I.A X^A V^V 



lal) 



(greater than) 



Less than - the result is 1 if A is less than R, otherwise it is 0. 

Grea:ter than - the result is 1 if A is greater than B, otherwise it 
is 0. 

Greater than or equal - R't-^A <B 

Less than or equal - R-*-~A>B 

The results of these functions are FUZZ dependent. 

2<3 2 
1 

2>3 2 


2<M« 
DOMAIN ERROR 



1 



1 1 



V 
2<*A* 

223 2 
2:S3 2 



(A and B must be numeric) 
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LEAN FUNaiONS 










syntax: 


Jl-*-Af<B 
S'^-AvB 
R-A^B 
B'^-AtB 






(and) 
(or) 
(Nand) 
(Nor) 


domain: 


A and B must be Boolean. 




range: 


R is Boolean. 








definition: 


And - the result 


is 


1 if both A and B ai 



examples: 



Or - the result is 1 if either A or B is 1, otherwise it is 0. 
Nand -S-*^Af>B 
Nor - J?-»— AvB 



1 



1 1 



1 







lAO 1 



IVO 1 



l«rO 1 



1¥0 1 
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Composite functions are formed from more than one APL symbol. They involve one or 
more primitive functions and one or more modifiers called OPERATORS. 

The three composite functions currently defined in APL are REDUCTION, INNER PRODUCT, 
and OUTER PRODUCT. 

In Reduction, the form of the composite function is "f/", where "/" is used as an operator 
to modify the function "f". In Inner Product, the form of the composite function is "f. g". 
where ". " is used as an operator to form a compound of the function "f" and "g". In 
Outer Product, the form of the composite function is "» .f", where the pair "».." is used to 
modify the function "f". 

In all three forms, the functions which may be used are the scalar dyadic primitive 

functions. The domain and range of the comoosite oneratorB i<3 that imniieH h,. fv^g 

' - — - — -^**^_ ^j -lit, 

functions used. 
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REDUCTION 

syntax: 



conformability: 
result shape: 
definition: 



R-^f/LKlB 

Rf f /B 

where f is a scalar dyadic primitive function. 

The index [K] follows the rules for Indexed Functions, 

(ppB)fcl 
(pi?)-^^(~(ippB)eJ:)/pfl 

If B is a vector, the result R is a scalar formed from the distri- 
buted operation of the function f on the elements of B as follows: 

R-*-BZll f B[2] f ... f BCpfl] 

Note that if an identity element value I exists for the function, such 

that: 

(B f I)-t-*-B 
or (J f B)'^B 

for any one -element B, then the result expression can be written: 

R-^BLllt . . .B[pB]f Jf I. . . 
or R-*-IiIi Bill f . ..BCpB] 
Thus if B has only one element, and that element is in the range of 
f, it is apparent that: 

R*B[.llfIfI...iOR JflfBCl]) 
so R-*~*-B[.l2 

This is in fact true even if such an I does not exist. 

Likewise, if B is empty, then: 

fl-Hl f If I . . . 
so R-t-I 

if I exists and is in the range of f,. 
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A 
V 



For non-commutative functions, an identity element, if it exists, 
may be only a left or right identity. The scalar functions and their 
respective identity elements are given in the table below: 



Function 


Identity Element 



Comnaents 


+ 




- 





right identity 


X 


1 




♦ 


1 


right identity 


r 


sri.265ff322 


smallest representable number 


L 


3^1.265^322 


largest representable number 


1 





left identity 


* 


1 


right identity 


• 


- 


no identity 


o 


- 


no identity 


1 


1 


left identity 


= 


1 


Boolean only 


* 





Boolean only 


> 





Boolean right identity 


< 





Boolean left identity 


i 


1 


Boolean right identity 


i 


1 


Boolean left identity 



1 





«y - no identity 

V — no identity 
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For B of rank greater than 1, the operation is performed on vector 
subarrays of B as indicated by the index K. Since K is an index, 
the result, if an index is specified, is ORIGIN dependent. If f ^ is 
used, the index defaults to that of the first coordinate axis. 



examples: +/1 3 t 

8 



-/I 4 3 


X-^2 3pl 3 4 6 2 5 

X 
13 4 

6 2 5 

+/X 

8 13 

+/C13X 

7 5 9 

)ORIGIN 
WAS 1 

+/[1]X 

8 13 

+ /X 
7 5 9 

r/x 

6 3 5 

+/3 Opl 


pi 
2 3 

x/pJ 
6 

X/X 
SIS TAX ERROR 

V 

\/X 

L/M' 
DOMAIN ERROR 

V 

L/M' 
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+/[2]B 
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INNER PRODUCT 



syntax: 



conformability: 



R-^A { . g B 

where f and g are scalar dyadic primitive functions. 

(ppil)S:l 

(ppB)J:l 

((pp4)+ppS)si29 (APL*CYBER restriction) 

("l+pil) = ll-pB 



extended 
conformability: 



result shape: 
definition; 



identity: 



A scalar or one element array may be used for either argument, 
in which case the last restriction above is not required. 

(pi?)-«-^("l + p4),l+pS 
If A and B are vectors, the result is obtained from: 

R-rf/A g B 

If either A or B is of rank S2, the operation is carried out using 
vector subarrays of the argument in question. Subarrays from A 
are selected along the last coordinate axis, and subarrays of B are 
selected along the first coordinate axis. 

Furthermore, for each vector subarray in A, the operation is car- 
ried out for all subarrays in B, in a fashion similar to Outer Prod- 
uct (q. V. ). 

Let Al, Bl and RR be defined by: 

ill-<-((x/"n.p;l),"l + Pil)pyl 

Bl-<-((l+pB).x/l + pB)p5 

ifi?-^(~l + pil),l + pB 
Note that Al and Bl are matrices. Then for all A and B: 

(i4 f . g B)-t-^i?i?pAl f . g Bl 
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examples: i 2 3+.xio 1 0.1 

12.3 

X-*-2 3piS 

7-^3 2pl0 t 1 5 0.1 5 
X 
12 3 
<^ 5 6 

1 
10.0 U 
1.0 5 
0.1 6 

12.3 32 
1*5.6 77 

PJ*3 7 1 

XQ-»-i+ 2 7 
PXr.+ifC 



X-t-O 0.2 5 

i?-*-10 

(X*A^)-.*!W-«-2x"l+iiV 
0.7071067812 

(1 1 lpl)+.x2 3px6 (extended conformability) 
5 '7 9 (result shape 1 1 3) 
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OUTER PRODUCT 

syntax: 

conformability: 
result shape: 
definition: 



examples: 



1 2».+l 2 3 



where f is a scalar dyadic primitive function. 

((ppil)+ppB)si27 (APL*CYBER restriction) 

(pi?)-^(p4).pB 

If A is a scalar, the result is: 

R->-A f B 

For A of rank SI, the result is formed by performing the above op- 
eration for each element (i. e. , scalar subarray) in A, and placing 
the resulting array in the subarray position of R corresponding to the 
position of the element in A. 

2«.+l 2 3 

3 If 5 

2 3 4 

3 4 5 

2 10».*"l 12 3 

0.5 12 4 8 

0.1 1 10 100 1000 

X-*-2 3 pl00xi6 

X 
100 200 300 
400 500 600 

J*2 3pi6 

I 
12 3 

4 5 6 



8-8 



19980400 B 



z-ejfo .+y 

pZ 
2 3 2 3 

Z 
101 102 103 
10»t 105 106 

201 202 203 
204 205 206 

301 302 303 
304 305 306 



1+01 402 403 
404 405 406 

501 502 503 
504 505 505 

601 602 603 
604 605 606 
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MISCELLANEOUS PRIMITIVE FUNCTIONS 



MONADIC IOTA: 


INTERVAL 


syntax: 


R*-iB 


domain: 


B must be integer. 




B20 


conformability: 


(ppB)=0 


result shape: 


(pi?)-^,B 


definition: 


The result is a vector of the first B ordinals. 


examples: 






i5 




1 2 3 l^ 5 




il 




1 (the setting of ORIGIN) 




1 

(the result is empty) 




p lO 









) ORIGIN 




WAS 1 




i5 




12 3 4 




\1 









lO 




p I 









il 2 




LENGTH ERROR 




V 

X 1 2 (B must be a scalar) 
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DYADIC IOTA: INDEX OF 



syntax: 
domain: 
range: 
conformability: 

result shape: 
definition: 



R'>-A\B 

No restriction. 

Ordinal. 

(ppi4)-<~»-l 
(Note: this requirement cannot be overridden by scalar extension. ) 

(.pR)-*-^pB 

The result has the shape of B. For each element of B, the corres- 
ponding result is the lowest index of A which selects a match for 
that element in A, if one exists. If no matching A element exists, 
the result element is assigned the value (pji) + il (i. e. , one greater 
than the highest valid index for A). 

a Since the elements of the result are indices, the result is ORIGIN 
dependent (see ORIGIN). 

If no element of A matches any element of B, for A not empty: 

R-*^(pB)p{pA) + \l 
« If A is empty, i?-e(pB)p\l 

For A and B both numeric, element comparisons are subject to 
the setting of FUZZ (see FUZZ). 

c If A/,BeA then Bf-*AIR'] 

(See examples on next page. ) 
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examples: 



) ORIGIN 



2 15 7i5 
3 

'ABCD' I <B' 
2 

2 15 7x6 
5 

5 

4 7 9i2 7 4 3 
It 2 1 1+ 

• WXYZ ' 1 1 2 3 

K c c 

v/ ;J J 

7i3 
RAIIK ERROR 

V 

7 X 3 (left argument must be a vector ) 

(,7)x3 
2 

(x0)x3 5 1 

111 

13 5 7 9x3 3px9 
16 2 
6 3 6 
4 6 5 

p2 1 SxxO 
(recall (pi?)-<-»-pB ) 
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DYADIC EPSILON: MEMBERSHIP 



syntax: 


;?■<-/ efl 


domain: 


no restriction 


range: 


Boolean. 


conformability: 


None. 


result shape: 


(.pR)-*~*-pA 



definition: 



note: 



examples: 



The result has the shape of A. For each element of A, the corre- 
sponding result element is a one if that element of A exists in B; 
otherwise it is a zero. 

i?-f--»-v/Ao. = ,fl 

For A and B both numeric, element comparisons are subject to the 
setting of FUZZ (see FUZZ). 



2€\1 

1 

8e\7 



A*-2 9 7 3 «t 
B-»-6 12 4 
AeB 
10 1 
BeA 
11 

2 3eiO 









1 2 3e'AXVR2' 



p(i0)€l 2 7 



•XAIQ3B7«6MBC3' 
10 110 

^ABC3*€'XAIQ3BT 
110 1 

(2 3px6)e2 6 9 
10 
1 
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DYADIC QUERY: DEAL 



syntax: 

domain: 

range: 

conformability: 

result shape: 

definition: 

note: 



examples: 



A and B both integer: yi^o . B^A 

Ordinal. 

(0=ppi4)A0=ppB 

{pR)'<->-,A 

The result R is a vector of A elements of iB selected pseudo- 
randomly without replacement, thus preventing duplicates. 

a Since the elements of the result are selected from \B> the 
result is ORIGIN dependent (see ORIGIN). 

« This function uses and modifies the SEED parameter (see SEED). 

If A~0, or uoth i\~^ ana I3~u, an empty vector results. 

results (see examples). 

4?7 
13 7 2 

U?7 
6754 

4?7 
7 4 6 3 
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GRADE UP 




syntax: 


R-^kB 


domain: 


B must be numeric 


range: 


Ordinal. 


conformability: 


(pB)-»-^l 


result shape: 


(pfl)-*-»-pB 


definition: 


The result R is a v 



note: 



examples: 



that BiR'] is the ascending sorted arrangement of the elements of B 
in which the relative order of equal elements of B is undisturbed. 

« All element comparisons are exact; this function does not use 
FUZZ. 

« Since the elements of the result are indices, the result is 
ORIGIN dependent (see ORIGIN). 

^4 7.3 "3.7 1 5.27 8 . Iff7 
3 U 1 5 2 6 

D-»-i?-<-^B-^2 7.5 2 918.3 7.5 
13 2 5 4 

BLR2 
2 2 7,5 7.5 918.3 
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GRADE DOWN 



syntax: 


R-'-lB 


domain: 


B must be numeric: 0=l+0pB 


range: 


Ordinal. 


conformability: 


(pS)'^-^l 


result shape: 


(pi? )■<-►? B 


definition: 


The result R is a vector of tl 



note: 



examples: 



that B(R) is the descending sorted arrangement of the elements of 
B in which the relative order of equal elements of B is undisturbed. 

« All element comparisons are exact; this function does not use 
FUZZ. 

• Since the elements of the result are indices, the result is 
ORIGIN dependent (see ORIGIN). 

f* 7.3 "3.7 1 5.27 8.1^7 
6 2 5 1 t 3 

Qi-R-^^B-<-2 7.5 2 918.3 7.5 
IV 2 5 1 3 

BCi?] 
918.3 7.5 7.5 2 2 
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BASE VALUE 



syntax: 


R->-AiB 


domain: 


A and B must both be numeric 


conformability: 


(ppA)-*-*-! 




(ppB)-t"»-l 




(pA)-^pfl 


result shape: 


(ppi?)-M-0 


definition: 


The result is a scalar whose \ 



number system with radices specified by A, 

The result is formed by taking the classical inner product 

where W is a weighting vector of the positional values of each digit of 
the represented number B, based on the radix scheme A . 

ff\.Il = */I*A 
(Recall ("l+l/)-^(x/iO)-«-*l . the multiplication identity 

element, ) 

Note that 1+A is not used in forming W, but an element is required 
for conformability. 

(See examples on next page. ) 
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examples: 



10 10 lOil 2 3 



2 2 2J.1 1 
5 

2J.1 1 
5 

2 2 2ll 
7 

2 2x1 1 
LENGTH ERROR 

V 

2 2x1 1 
3 12l3 2 3.25 
135.25 



(scalar extension of A) 



(scalar extension of B) 



(argument lengths diff- 
erent) 



uricnes in .i varas. z leet, 
3 1/4 inches) 
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REPRESENTATION 



syntax: 


R-^-ATB 


domain: 


A and B must 


range: 


Ri.0 




R<\A IF A*0 


conformability: 


(Ppi4)=l 




(pp5)=o 


result shape: 


(pfl)t~»-pi4 


definition: 


The result is 



The result is a vector, the elements of which form the representa- 
tion of B in a number system with radices specified by A, 

If: (Pi4) = l 

then: UrB)-f-^A\B 

Case 1 - A contains no zero elements. 

If: S-^~1^A 

Ali-~1*A 
then: (.ATB)^^({AniB-Rl)*S) ,i?l-«-5lB 

Case 2 - A contains zero elements. 

If: N*-(.pA)-(<i>A)\Q (IN ORIGIN 1) 

then: (.ATB)-i~>-{NpO) ,(N+A)tB 

Note that this results in all elements of A to the left of the rightmost 
zero being ignored. This is because the o| operation causes the 
remainder of B to be exhausted; that is, (,Rj.B)=B . If this necessi- 
tates an element of R being negative in violation of the range restric- 
tion, a DOMAIN ERROR results. 

(See examples on next "age. ) 
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examples: 



12 3 



Oil 



10 1 



10 10 10T123 



2 2 2T3 



2 2 2T 3 



10 10T123 



2 3 

10T123 
12 3 

"10 "10 "10 "10t"123 
19 3 7 

"10t"123 
DOMAIN ERROR 

V 

"10t"123 

12T113 
9 5 

lTl2.3it 
12 0.34 

1t"12.34 
DOMAIN ERROR 



(decimal representation of 
12 3) 



(binary representation of 3) 



(two's complement representation 
of "3) 



(result may not be negative) 



(quotient and remainder of 
113-i-12) 



(integral or fractional part of 
12. 34) 



IT 12.34 

3 12T135.25 

3 2 3.25 

0.3 2T3 

3 0.1 1 



(result may not be negative) 



(yrds. , feet, inches in 135. 25 
inches) 



(results with fractional 
radices) 
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EVALUATE 

syntax: 

domain: 

conformability: 

definition: 



note: 



application: 



R-t-tB 



Cha]:*acter. 

(ppB)-«~»-l 

(pB)s25 6 (APL*CYBER restriction) 

The character vector B is assumed to represent an evaluable APL 
expression. 

EVALUATE interpretively evaluates this APL expression and, upon 
successful completion, returns the value of that expression (if any) 
as its result. 

Error detection and reporting are similar to that which would result 
if the expression represented by B were input for immediate exe- 
cution. 

Using EVALUATE, APL programs can be constructed which modify 
APL source expressions prior to their evaluation. 

(See examples on next page. ) 
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examples: 



iM-<-5' 



2xj.M^5' 



10 



B-«-2xiSPA 
B 

l + i.NAME,'*-Z' 



l'2t0' 
DO MA in ERROR 

V 

1 2*0 

SYNTAX ERROR 

V 

1 -i-5 

1 • )DIGITS 5 ' 

fAnaH on. LiH-VII^C 
V 

4 ) DIGITS 5 



(error detection as in 
immediate execution) 



(not evaluable) 



(nnt e>valua,blfi^ 
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examples; numeric test 



NUMi-'0 = 0\Qp » 

B'<-\5 

kNUM. 'B' 
1 

C-<-MBC' 

iNUM, 'C 


±NUM, 'lO' 
1 

xNUM. ' ' * ' t • 


nested execution 

X-^' (OpA-^-iAA) ,(QpB'^iB-R)irri) , ' 

yiA/;£'PAB^'ir.(((-i+p,4)xpx,y)pj,7),..;o" • 

i4-<-10C 100 

B-^3 5 7.91 

tAAREPiiB 

3 57.91 

In the above example, the character vector AAREPAB contains an 
evaluate function designator as its first character. Evaluating 
AAREPAB involves first evaluating 1-i- A ARE PAB and then evaluating 
the result of that. tl-^AAREPAB results in a character vector which 
is a tailored APL expression dependent on the shape of A. 

For the values in the example we have; 

±1+AAREPAB 
(.R-^(.i>l'>-~l^A)\B) AOpA^l^A) AOpB'>-(.B-R)iN) ,R^(N-^~1^A)\B} .xQ 
This expression is then evaluated, yielding the final result. 
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FORMAT 

syntax: 

domain: 

conformability: 
result shape: 



definition: 



note: 



application: 



B must be numeric 

(ppS)&l 

(ppR)-*-*-li-ppB 
pi?-«-»-(pB),Ar 

where M is the number of characters required to represent a row 
of B such that the decimal points are aligned in each column. 

R is the character representation of B, with the shape as defined 
above. 

Since the result is not actually displayed, it is not sensitive to the 
setting of WIDTH, which is a terminal display parameter. 

The purpose of FORMAT is to convert numeric cata to character 
data which can then be suitable edited, combined with other char- 
acter data and, finally, displayed in any desired form. FORMAT 
gives the user much more flexibility in formatting output than com- 
posite data object displays allow. 

(See examples on next page. ) 
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examples: jr-«-?10+i5 

X 



11 
12 
13 

m 

15 



P^ 



3 1+; 



<t>:r 



5 2 



11 
21 
31 
41 
51 



X-<-l 2 3 4 5 
NAME-^*X' 
INDEX-*-3 

I.MME, T' ,(.f INDEX), n-^-l^ 
X 
12 7 4 5 
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I-BEAM 



syntax: 
domain: 
conformability: 
result shape: 

definition: 



B must be integer (see table below). 

(ppS)=0 

(ppi?) = for B = 18 through 26. 
(ppif) = l for B = 27, 28 and 29. 

The I-beam function provides a mechanism for the user to inquire 
about certain items of system information not part of the APL 
language. The particular piece of information desired is indicated 
by the value of B. 

The values of B accepted by APL*CYBER and the information re- 
turned are indicated in the following table. 

B Information 

18 Current amount of workspace in use (words). 

19 Total time APL has been awaiting input from this user (since 
sign-on). 

20 Time of day (sec. since midnight). 

21 Total CPU used since sign-on (sec. ). 

24 Total time this user has been signed on APL ( sec. since last 
sign-on). 

25 Today's date (YYMMDD^q). 

26 Value of current function line number. 

27 Vector of line numbers of stacked functions. 

28 Type of terminal signed on this port. 

29 User ID signed on this terminal. 
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INPUT REPRESENTATION FOR.MAT 

APL expressions input from the terminal are formed according to the following rules: 

USE OF SPACES 

, Spaces must not be used in forming identifiers, or in INNER or OUTER PRODUCT. 

Elements of numeric literal vectors must be separated by at least one space. 

« At least one space must be placed' between adjacent identifiers and between identi- 
fiers and numeric literal expressions. 

9 Spaces are explicitly interpreted as such where they occur in character literal 
expressions. 

Anv other occurrence of spaces is optional, and is ignored. 

USE OF PARENTHESES 

Parentheses are required to delimit the extent of an expression for the left argu- 
ment of a function where that expression is other than a literal expression, a data 
identifier, a niladic function call, a QUAD or a QUAD-PRIME. 

« Parenthesizing of any other expression (including one already parenthesized) is 
superfluous but allowed, unless the expression is the left argument of a specifi- 
cation. 

CONVERSION OF INPUT REPRESENTATION 

Input expressions are converted to a standardized internal format upon input. Superfluous 
space characters are ignored in this conversion. Arrays are created for literal expressions. 
If any element value of a numeric literal expression exceeds the range of the machine (see 
Appendix C), a DOMAIN ERROR occurs at this point in the line when the line is executed. 
All identifiers and function designators are also converted to an internal format. It is this 
internal format that is used by the interpreter in evaluating expressions. 
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EVALUATION OF EXPRESSIONS 

ORDER OF EVALUATION 

Any expression takes the overall forna of a literal, a data identifier, or a function call. In 
the first two cases, evaluation is a one-step process. If the expression is a function call, 
evaluation proceeds as follows: 

The right argument (if there is one) is evaluated first. 

The function itself is then examined to determine if it is dyadic. For primitive functions 
which utilize the same designator character for both a monadic and a dyadic function, the 
function is interpreted as dyadic if the item to its immediate left is the rightmost item of 
an expression, namely: a literal e^qjression, a data identifier, a niladic function call, a 
right parenthesis, a right bracket, a QUAD or a QUAD-PRIME, If no such item exists, 
the function is interpreted monadically. 

If the function is determined to be dyadic, the left argument of the function is evaluated. 
If it consists of more than one syntactic element the desired left argument must be enclosed 
in parentheses. The interpreter utilizes the occurrences of the parentheses to determine 
the extent of the expression for the left argument. 

With the argument(s) evaluated, the function call is then made and any returned result is 
the evaluated result for the expression. 

The arguments, if present, are expressions in their own right and are evaluated in the 
identical manner as stated above. 

ERROR DETECTION SEQUENCE 



Error 



{ QUOTE ■) 



, PAREN {balance 
I BRACKET^ 

« SYNTAX ERROR 

• VALUE ERROR 

• DOMAIN ERROR 



« RANK ERROR 

• LENGTH ERROR 
INDEX ERROR 



Typical Causes 

f quotes 1 

non-m.atching < parentheses i 

/brackets \ 

improper nunaber of arguments supplied. 

variable not established (could be misspelled). 

supplied argument not in the domain of definition, 
or result not in the range of definition of the 
function, 

argument rank conformability requirement not 
met. 

other conformability requirement not met, 

index out of range; applies to indexing and index 
notated primitive function calls. 
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Examples: 

The following set of statements indicates the order in which execution is performed and 
errors are detected. 

y-»-l 5 4 2 7 9 
y(0.5+0 1XX++Y] 
BRACKET BALANCE 



y(0.5+0 lx^++y] 

yco.5+0 ixz+ty] 

SYNTAX ERROR 

V 

y[o.5to ix;ir++y] 
y[o.5+o ixA'+i+y] 

VALUE ERROR 

V 

y[o.5+o ixx+i+y] 

J-«-2 3pl 2 3 t 3 2 

yCo.5+0 ixj+i+y] 

LENGTH ERROR 

V 

yCO.5 + lx;^+i + y] 
yCo.5+(3 2po i)xz+i+y] 

LENGTH ERROR 

V 

yCo.5+(3 2po i)xz+i+y] 
yCo.5+(2 3po i)xj+i+y] 

INDEX ERROR 

V 

y[0.5+(2 3p0 l)xj+i+yj 



(Continued on next page. ) 
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(Continued from previous page. ) 

rCL0.5 + (2 3p0 DxX+l+TD 
INDEX ERROR 

V 

7I:L0.5 + (2 3p0 l)xAr+l+T] 

) ORIGIN 
WAS 1 

rCL0.5+(2 3p0 l)xJ+l+J] 
12 1 
9 12 

The following example indicates how a specific action within an expression is handled: 

A^2 

i4-f-2 
A-¥Af5 
10 



7 
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DISPLAYING EXPRESSIONS 

When an expression is displayed, such as in an error report or in a requested display of a 
user-defined function line, an inverse conversion transforms the internal format to a dis- 
play format. The display formatting follows the rules of canonical form. 

CANONICAL FORM 

All displayed expressions must be in a form that is acceptable as input. 

« Literal numeric expressions have the same form as employed in numeric data 
formatting. (See DISPLAYING DATA ). 

« Comments are displayed as they were entered, 

Except as required in the above points, spaces are not inserted in displayed e:q>res- 
sions. 
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IMMEDIATE EXECUTION 

When no other activity is taking place, the system awaits input for imnnediate execution . 
This is indicated by a 'prompt' from the system in the form of an indentation 6 spaces from 
the left margin. In this state, the user may enter: 

» an expression to be evaluated, 
« a system command. 
« a function edit request. 

When all processing resulting from the line input has been completed, the system again 

ABORTING EXECUTION OR OUTPUT 

Whenever an expression evaluation, function execution, or output is taking place, process- 
ing may be interrupted. (This is accomplished on a terminal by pressing the 'BREAK' or 
'ATTN' key. ) 

Any ongoing output is aborted. Expression evaluation is terminated at the end of the cur:- 
rently executing line. If a function is executing, it is suspended immediately before execu- 
tion of the next line. 

If the currently executing line was entered in response to a QUAD input request (see below), 
the request is not satisfied, and the QUAD prompt is reissued. 



Example: 



1 2 3 «t 

5 6^ (output aborted at this point) 

3 4 (note specification to X was done, since 

evaluation continues until the end of the 
line is reached) 
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QUAD INPUT 

syntax: E-*-U 

If the symbol D (QUAD) appears anywhere except in the construct Q<- , it signifies that an 
expression is to be evaluated at that point, the source for which is to be supplied from input. 

At the point where a QUAD in the above stated context is reached in the execution of an APL 
source line, further execution is pendant on an evaluated result for QUAD. 

A 'prompt' to the user terminal is sent in the form: 

at the left of a line. This is followed on the next line by indentation 6 spaces from the left 
margin. At this point the system awaits input to be submitted. 

Input must be in the form of an APL expression. Upon entering the line the APL expres- 
sion is evaluated as for immediate execution. 

Simply entering an empty line causes the 0: to reappear. 

If no errors are detected on evaluating the submitted APL expression, the result obtained 
is returned as the result for the QUAD function and evaluation of the original source line 
continues. 

If evaluation of the expression input after the prompt is not possible due to some error in 
the submitted line, the appropriate error report is issued, followed by another prompt, 
with the system again awaiting input. 

The user may now resubmit the expression, correcting the error, or alternatively use the 
line editing feature to correct the existing line (see LINE EDITOR). 

The symbol D used in this manner can be likened to an implicit result-returning niladic 
user-defined one-line function in which- the user supplies the line each time the function is 
called. As such it has two properties in common with regular user-defined functions. 

a Recursive calls can be made with QUAD by submitting as part of the input 
expression another QUAD. 

« Exit from all further evaluation of expressions at all levels is possible by 
inputting after the prompt line a niladic branchi 



This provides an exit mechanism from an infinite loop requesting and evalu- 
ating input. 
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Instead of entering an APL expression, it is acceptable to enter a system command. All 
valid system commands will be carried out. If the system command replaces the existing 
active workspace with some other workspace, such as by )LOAD or )CLEAR. request for 
inpu^ is terminated. 



Examples: 



2+D 



«3x5 



17 



(Immediate execution input) 

(response to QUAD) 
(result) 



Another way in which QUAD appears like a user-defined function can be seen by issuing 
)SI or )SIV in response to a request for input. 

l,2+n-<-0. SxD-l (immediate execution input) 

IM (QUAD prompt issued) 






13; 



+ . 



(QUAD pendant) 
(prompt reissued) 
(response to QUAD) 



Ht 



a 



i.n 



)SI 



(prompt reissued) 



(prompt from second QUAD) 



(two QUAD'S pendant) 



(prompt reissued) 
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1+D 



m 



)SI 



n>i»nk) 



(response to last QUAD) 

(display from □■«- ) 

(result) 

(immediate execution input) 

(prompt issued) 

(exit from last execution) 

(nothing pendant or suspended) 

(system again awaits input for immediate 

execution) 
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QUAD-PRIME INPUT 

syntax: R-*^ 

If the character C!!(QU AD -PRIME) appears anywhere except in the construct H-^, it sig- 
nifies that character data is to be obtained from input- 

At the point where a QUAD-PRIME in the context stated above is reached in the execution 
of an APL source line, further execution is pendant on a result obtained for QUAD-PRIME. 

No prompt occurs with QUAD-PRIME other than a bell signal or keyboard unlock. The 
system simply awaits input at the left margin. 

Input consists of a line of zero or more characters. Unlike normal input of explicit 
character literals, a quote character to mark the beginning and end of the literal is not 
used. Further, the quote character is represented by itself and not by two consecutive 
quote characters. 

The explicit character literal, as input (subject to conversion of illegal characters to the 
canonical bad character), is returned as the result for QUAD-PRIME, and evaluation of 
the original source line continues until completed. 

Input of a single character results in a character scalar. Input of no characters or more 
than one character results in a character vector. 

Since all character inputs are taken literally and are not interpreted, this function cannot 
be used recursively. Likewise, system commands will not be interpreted as such. 

A single exception to the above is a special character provided solely for the purpose of 
providing an escape mechanism identical to that provided by— >for the QUAD function. 
This special character is the composite formed by over striking the letters 'O', 'U', 'T', 
(For terminals without overstrike capability, the mnemonic sequence is '$G. ') 

(See examples on next page, ) 
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Examples: 



ABC 



IpD-HD 



J ft 



•;sr',n,«y' 



$ 

)SI 






IpCI 



'f/'.l+D 



n 



(immediate execution input) 
(response to request for literal input) 

(result) 

(immediate execution input) 

(QUAD prompt issued) 

(response to QUAD) 

(response to QUAD- PRIME) 

(display from D-«- ) 

(result) 

(immediate execution input) 

(response) 

(three characters recieved) 

(immediate execution input) 

(response to QUAD-PRIME) 

(result) 

(immediate execution input) 

(exit from last execution) 

(system again awaits input for immediate 

execution) 
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VISUAL FIDELITY 

The underlining concept in entering a line of input is visual fidelity; . i. e. , that the appear- 
ance of the line upon submission is what is conveyed, rather than the sequence used to 
form the line. The implications of this concept are as follows: 

• The position of the terminal carriage, type ball or cursor is immaterial upon 
hitting the return key. 

• The order in which characters are keyed is immaterial. 

• On terminals with a destructive overstrike (CRTs) any character may be replaced 
by any other, including blank, prior to hitting return; only the final appearance 
will be conveyed. 

ABORTING AN INPUT LINE PRIOR TO SUBMISSION 

• Position to the right of the right -most input character. 

• Press the 'BREAK' or 'ATTN' key. 

The system returns to the same input mode as existed prior to entering the line. 

The next entered line will be processed as a new line for the input mode in effect unless 
its left-most non-blank character is a '/' (see LINE EDITOR, below). 

CORRECTING AN INPUT LINE PRIOR TO SUBMISSION 

Method (A) (requires a terminal with a backspace key and a 'BREAK' or 'ATTN' key). 

1. Position via any combination using the backspace key and/or space bar to the left- 
most character to be erased. 

2. Press the 'BREAK' or 'ATTN' key. 

- A marker is displayed beneath the point reached. 

- Indentation on the following line occurs to the point beneath the marker. 

- The system awaits input to append to that portion of the original line to 
the left of the marker. 

3. Key in appended text (if any). 

4. Submit the corrected line for execution. 

Method (B) (requires a term.inal with a 'BREAK' or 'ATTN' key). 

See LINE EDITOR (below, case 1). 

Method (C) (A combination of methods A and B above. ) 

1. Employ method A steps 1 thru 3, 

2. Employ method B to make other changes. 
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LINE EDITOR 

The line editor can be used to edit lines In the following three cases. 

(1) An input line prior to its submission, may be edited by positioning to the right of 
the right-most input character and keying 'BREAK' or 'ATTN'. 

(2) A line submitted for immediate execution may be edited immediately after issue 
of an ensuing error report for that line. 

(3) A function line which has just been displayed by the function editor, may be edited 
without leaving the editor. (See FUNCTION EDITOR, ) 

In each of these cases, if the next input line contains a '/' as the left-most non-space 
character, it will be interpreted as a line edit command for editing the line in question. 

LINE EDIT COMMAND 

syntax: / ■f<delim.> <char. seq.> <delim.> <char. seq.> <delim.>| 

The line edit command consists of the '/' character followed by 
two delimited character sequences of text. Any non-blank char- 
acter may be used as a delimiter, but must be consistently used 
to delimit both character sequences, and must not appear in either 
character sequence. Each character sequence may independently 
be of any length including empty. 

action: The line editor updates the line in question by replacing the left- 

most occurrence of the first character sequence by the second one. 
An empty first sequence implies the whole line. 

The specific edit process for various forms of the line edit command is as follows: 

('. ' is used here as the delimiter character. ) 

COMMAND EDIT PROCESS 

/ .<SEQ1> .<SEQ2> . replace the left-most occurrence of sequence 1 with sequence 2. 

/ . <SEP1> , , delete the left-most occurrence of sequence 1. 

/ . . <SEQ2> . replace the line with sequence 2. 

/ , . . display the entire line and await additional input at the end. 
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error reports: 



examples 



Upon completion of the editing process, the edited line is displayed 
and the system awaits input to append to the end of the edited line. 
Keying 'BREAK' (or 'ATTN') at this point allows the line editor to 
be reentered for making further changes. After submission of the 
appended text or a blank line, immediate execution of the edited 
line is initiated in cases 1 and 2. In case 3 the edited line is in- 
serted into the function definition and an appropriate prompt is 
issued. (See FUNCTION EDITOR, ) 

MISSING DELIMITER 

This may be caused by omitting one or more delimiters. 

NOT IN LINE 

Specifying a sequence, for which no match can be found in the line. 

Additional attempts at entering a line edit command to edit the 
original line are allowed following this error report. 



/ .A.A). 

Bl-»-((~l + pB),yI)pB-t-C,P 

B2-<-x/C3]4.B 



-('BREAK' keyed before submitting) 

(replace "A" with "A)") 

("«-C, D" appended to edited line 
and then submitted) 



INDEX ERROR 



B2-<-x/C3]A,B 

/.Ca],, 

B2ir^/A,B 

VSQUISHllW] 
[2] i?-<-~l + (("l-l-£)vi+I)/l + Z 
C2] /.. 
MISSING DELIMITER. 

/ .X.X,2. 
[2] i?-<-~l + ((~l+i)vl+I)/l + X,y 
C3] 



(this line can now be edited) 



(delete [3]) 

(edited line is displayed, then submitted) 
(the line executes successfully) 



(display text of line, changing "X" to "X, Y") 

(submit without appending) 

(close definition - line 2 is replaced as edited) 
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FUNCTION DEFINITION 

To provide an open-endedness to APL, a user may supplement the primitive functions with 
those he defines himself. 

The syntax of a user-defined function definition consists of a function header followed by a 
function body. The function header declares the name of the function and its syntactic form. 
The function body consists of zero or more lines of APL, each of which may be preceded 
by a label (see LABELS). 

FUNCTION HEADER 

In addition to the monadic and dyadic syntax of primitive functions, user -defined functions 
may be defined having no arguments (niladic syntax). 

User-defined functions may be result-returning, as are primitive functions, or non result- 
returning. 

The above criteria and the function name are established by the function header. The form 
of a function header is as follows: 

\<1. arg.> <function name> <r. arg.>/ 
I <result>«— I i < function name> <r. arg.>f | ; <explicit local list> j 

( < function name> J 

where: <result> is the local result name 

<1. arg.>is the local left argument name 

<r. arg.>is the local right argument name 

< explicit local list> is a list of identifiers separated by semicolons. 

Identifiers in the function header other than the function name (i. e. , arguments, result, 
and explicit local list) declare variables local to the function environment. (See ENVIRON- 
MENT OF AN ACTIVE FUNCTION. ) 

FUNCTION BODY LINE 

The form of a function body line is as follows: 

[<label>: ]■ <executable portion> { A <comment>2 
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FUNCTION CALL 

A dyadic function name FLIP having numeric arguments could be invoked by: 
2 3 7 FLIP 8 1 

If the function header for FLIP is 

R«-A FLIPB ; X ; Y 
then at the time FLIP is invoked, A has the value 2 3 7 and B has the value 8 1 . 

The process of assigning values to A and B at the time of function call is similar to spec- 
ification, 

FUNCTION EXECUTION 

Upon function call values are supplied to the function arguments (if any), and the body of 
the function is executed. 

Each line is interpretively executed in the normal right-to-left manner starting with the 
first line. 

Lines are executed in sequence in order of occurrence unless otherwise directed by a 
branch (see BRANCH). When the last line of the function is executed, if no branch is taken, 
the function exits. 

Upon completion of function execution, the value returned is the value of the local result 
at that time. If no specification has been made to the local result, no result is returned. 
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BRANCH 

Syntax: ->B 

Domain: non-negative integer 

Conformability: (^^B)<1 

A branch must be the left-most operation on the line in which it appears. The domain of 
the argument B is integer. No result is returned from the operation. Those cases exist: 

1. If B is empty, the branch is ignored. 

If B is not empty, all but the first element are ignored. Let I<-ltB . 

2. If IcO lCl] + \ff , where N is the number of lines in the body of the function, the 
next line to be executed will be line I . 

3. Otherwise, execution of the function is terminated and the function exits. 

4. B must be within FUZZ of a positive integer. Otherwise, a DOMAIN ERROR will 
result. 

Note that numbering of function lines is not dependent on the index origin. Thus 1 «'if it 
exists) is always the first line of the function, and — >0 always causes an exit. 

Niladic Branch 

A second form of the branch directive exists which consists solely of the branch directive 
on a line by itself: 



Execution of a niladic branch causes an exit, not only from the current function being ex- 
ecuted but from the entire set of functions in the calling sequence initiated by the outer- 
most function call, including the immediate line in which the outermost call was made. 

The exit mechanism utilised when niladic branch is invoked bypasses all result-returning 
procedures for all currently invoked functions in the calling chain. 

The purpose of the niladic branch is twofold: 

1. To provide a termination path which stops all function execution. 

2. To reinstate the workspace environment to as near as can be obtained to what 
it was prior to calling the initial function in the calling sequence. 
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LABELS 

In forming expressions which evaluate to the number of some desired function line, it may 
prove difficult to predict what that number will be. Furthermore, the number will be 
subject to change if, subsequently, additional lines are inserted in the function or some 
lines are deleted. 

The above difficulty is eliminated by the ability to reference function line numbers symbol- 
ically. This is accomplished by the use of labels. 

An identifier followed by a colon may be placed to the left of the executable portion of any 
line to be referenced. Only one label may be placed on a line. 

This identifier is the name of the label for the line. This label is local to the function 
(see ENVIRONMENT OF AN ACTIVE FUNCTION). When the function is called, it is given 
the value of the number of that line, in much the same way as the arguments are assigned 
values. The value of a label is always an integer scalar. 

Labels have a property which distinguishes them from all other variables. During their 
existence they cannot be respecified (i. e. , their value cannot be changed). Labels are 
thus the only named constants in APL. In all other respects, they are normal variables. 

NOTE 

As will be seen in the following section, label values are 
available to functions called by the function containing them. 
As labels are indistinguishable from any other variable, 
branching to such a label in a function called by that function 
will not cause a branch back to the labelled line in the calling 
function, but rather a branch to the line in the called function 
having the sanne line number. If no such line exists, an exit 
from the called function will occur. 
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ENVIRONMENT OF AN ACTIVE FUNCTION 

When a function is called, values are assigned to its arguments and labels. All of its other 
local variables (the result and explicit locals) become undefined (i. e. , have no value). 

This constitutes an initial local environment at function call. 

A function possesses a local environment from the time it is invoked until exit from the 
function occurs. During this time the function is said to be active. 

The fact that the local environment disappears upon function exit is a useful mechanisnn 
for minimizing workspace requirements and for keeping the workspace from being clutter- 
ed with data objects which are no longer required. 

Since explicit locals and the result have no value until first specified, while the function is 
active, prior reference to such variables inside the function results in a VALUE ERROR. 

Also, since the local environnnent disappears on exit from the function, values specified 
to locals on one function call are not available to the function on subsequent calls. 

In ad()ition to the local envirnnment, the total function environment initinllv consists ofthc 
entire workspace environment prior to function invocation, except for those objects whose 
names are identical to identifiers appearing in the formal parameters or local list of the 
function header, or label identifiers. 

These latter objects are said to be masked while the function is active. Note that all mask- 
ing occurs at the time of function invocation, and not when subsequent specification for 
some local is first made. 

Objects in the function environment which are not part of the local environment are termed 
the global environment . 

The global environment includes, in addition to those workspace objects not masked on 
function invocation, the workspace environmental parameters Origin, Digits, Fuzz and 
Seed. 

Functions can thus make reference to objects and respecify variables which are part of 
their global environment. New global variables can also be created by specifying to a name 
not appearing in the local list. This ability provides the function with a communication 
facility separate from that provided by the argument and result parameters, and is the 
only method available to niladic non result-returning functions. 
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NESTED FUNCTION CALLS 

At any point during execution, it is possible for a function to invoke any other function 
ueiineu in ils environrrienL# 

When a function calls a function, the calling function still remains active (since an exit 
from it has not yet occurred); however, it is no longer executing, but rather waiting for 
the called function to complete its execution. During this time the calling function is said 
to be pendant . When the called function has completed its execution, it exits back to the 
calling function, returning a result if any. 

Execution of the calling function then recommences at the point where it left off, and the 
calling function is now no longer pendant. 

Calls to non result-returning functions from a function must be placed alone on a separate 
line within the body of the called function, otherwise a VALUE ERROR will result when 
the line attempts to reference the non-existent result of the function.. 

Result-returning functions, on the other hand, can appear as arguments in more complex 
expressions to be evaluated, including additional function calls. 

The environment of a function while pendant is kept intact, while the called function creates 
its own local environment. The total environment of the calling function becomes the 
potential global environment of the called function from which certain objects may be ex- 
cluded due to masking. Objects which were masked by the calling function remain masked 
to the called function. 

The origin of objects in the called function's global environment is indistinguishable to it. 
It may indiscriminately reference, change and create global objects which are either local 
or global in the calling function. 

The state of the workspace environment upon the completion of all function execution (known 
as the absolute global environment ) will be affected, however, if the inner function re- 
specifies one of these objects or creates new ones. If, on the other hand, only objects 
which were part of the local environment of one of the functions in the calling sequence 

were effected, no char^gc to the absolute global environment v.'ould occur. 

Note that a called function's local environment is invisible to the calling function, whereas 
both its own local environment and global environment can be affected while pendant. 

The process of having a function call a function can be continued by having that function call 
another function, etc. This gives rise to a calling chain of function calls. The calls are 
said to be nested from the outermost call to the innermost one. All called functions except 
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the innermost are pendant. Local environments exist in the workspace for all the function 



\^CLlXiD 



The number of calls in the call sequence is termed the depth of nest of the innermost 
function call. Nesting can occur to any level for which sufficient available space in the 
workspace exists to create a local environment for the function called at that level. An 
attempt to nest deeper than this results in the error message WS FULL and the function 
attempting to make a call is suspended on the line in which the call occurs. 

A NOTE ON RECURSIVE CALLS 

Recall that a function may issue a function call to any function in its global environment. 
As long as the called function is not masked on calling the function, it will exist in the 
function's global environment and can just as validly be called as any other function in its 
environment. 

Any call sequence in which a function calls itself or any function in the current calling 
sequence that is pendant, is said to be a recursive call. Recursive calls give rise to the 
sitiiatinn where one call of a function is currently executing while one or more other rails 
of the same function are pendant in the sanme calling sequence. 

The fact that multiple pendant calls and a currently executing call, all to the same function 
can co-exist, in no way causes problems. This is due to the fact that each call of the 
function creates a separate local environment to be used by that function call as long as 
that call is active. In this way each function call keeps track of its ovm environment and 
is oblivious to all other local environments. 

Each recursive call nests deeper in the calling sequence. Since successive recursive calls 
usually emanate from the same line in the calling function, that line when executed on 
successive calls causes further recursion to occur. If care is not taken, the nesting depth 
will become excessive, filling up the workspace with loeal environments of pendant calls to 
the point where a WS FULL message occurs. 

A function employing a recursive call naust therefore provide an alternative path to be 
taken when some limiting condition occurs which bypasses the line invoking a further 
recursive call. The limiting condition must be met by some innermost recursive call 
within an allowable nesting depth. This call must then be allowed to complete without in- 
voking further recursive calls and exit to its caller. In like manner, each called function 
in turn uses any returned result in completing its execution and exits in turn to its caller, 
progressively reducing the nesting level until the outermost call is completed, whereupon 
all function execution terminates. 
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FUNCTION EDITOR 
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PURPOSE 

The APL*CYBER system contains a utility called the function editor which accepts suitable 
input in the form of a function definition, and upon completion stores in the active work- 
space a defined function suitable for subsequent execution. 

The utility can also be used to display all or part of a function definition or to modify an 
existing defined function as desired. 

INVOKING THE EDITOR 

Whenever the system is awaiting input for immediate execution, the function editor can be 
entered by placing the APL character V ('del') as the left-most non-space character of an 
input line. This must be followed on the same input line with the name of an existing defin- 
ed function in the workspace, which the user wishes to modify or display, or the function 
header of a new function which the user wishes to define. 

If the syntax of the function header is invalid, or contains the name of a currently existing 
global object, the error report DEFN ERROR results, and the function editor exits. 



Notation : In the examples in this section, shaded text indicates APL system response; 
unshaded text is entered by the user. 



VR-<-A NEW B 



)FNS 



^OLD 



FUN-*-5 
VRtrFUN B 



NEW is a new function 
being created. The 
editor prompts for an 
entry for line 1. 



OLD has 3 body lines, 
the editor prompts for 
an entry for line 4. 



FUN is a currently 
existing global object, 
and thus cannot be 
used as a function name. 



NOTE: The function editor can be entered while a defined function is suspended. The local 
environments may cause masking of the function being modified or created. Masking does 
not effect the ability of the function editor to access or create defined functions. Masking 
will, however, prevent calling these functions until the local environments of the active 
functions are removed. (See )SI , NILADIC BRANCH) 
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SUPPLYING FUNCTION DEFINITION BODY LINES 

Upon sucessjFully entering the function editor with an input line in the form as stated above, 
subsequent lines of input are implicitly considered to be consecutive lines of the body of 
the function definition, unless their form indicates otherwise. The editor 'prompts' the 
user for each such line by displaying a line number in brackets at the left of the line to be 
entered. For a function being newly created, the first prompt is [1]. For a previously 
defined function, the first prompt is [<L+1>1, where L is the number of body lines in the 
previous definition of the function. 



I^J ;?■•-( "ifpOn+Pi* 



Ct-(.pA),pB 



The prompt number always indicates the relative position an input body line will have in the 
completed function, unless that input is suitably annotated to override this placement. 

Overriding is accomplished by entering a line number in brackets, optionally followed by 
the body line entry all on the same input line. If only the line number in brackets is enter- 
ed, the editor responds with a prompt as entered. 

1^ [7] i4+((3sppil),pil)pil 

|^p~ ->-or i(ppi4)»'pps 



When overriding the prompt line number, a non-integer decimal numeral with a fraction 
part of up to 4 decimal digits can be supplied. (Using more than this results in the error 
report EDIT ERROR. ) By this means, a line position in the function body between two 
previously entered lines can be indicated. 

[2.3] -t-O.pU'*-' DOMAIN ERRORS 
[2.1] 
-»-Llxi(0+,i4)=0+,B 

After entering a body line of the function definition, the editor again returns a prompt. 
The line number of this prompt is obtained by incrementing the number of the previously 
entered line by . 1*D where D is the number of fraction digits last used in overriding a 
prompted line number. (D is set to zero initially. ) 
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REPLACEMENT OF AN EXISTING LINE 

In the same manner that new lines are placed in a function definition, a previously existing 
line can be replaced with a new entry. The prompted line number is overridden by the 
line number of the existing line, and the new body entry is supplied which then replaces the 
old entry. 

[3] Ll:A^(.(.3<ppA) ,pA)f>A 




NOTE: The function header can be changed in this manner by designating the line to be 
changed as zero. If the entered header results in a DEFN ERROR, a prompt for line zero 
is issued and the previous function header is maintained. 

|M| [0] R-^A OLD B'.C 



DELETING AN EXISTING LINE 

Deletion of an existing line is done using the same procedure as for replacement of a line. 
The editor does not incorporate a body entry line that is completely blank into the function 
definition. Thus, replacing an entry with a blank entry effectively deletes the line. A 
blank entry cannot be conveyed on the same input line that specifies an override line 
number. The override directive must be submitted on one input line, and the blank line 
entry submitted on the line on which the revised prompt appears. For keyboard terminals, 
a blank line entry is produced by merely depressing the RETURN key. 

Example: 

[-2] 



NOTE: A blank entry will cause a revised prompt of N+. 1 *D to be issued where N is the 
previous prompt, even if there was no line N. 
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RESTRICTION ON EDITING ACTIVE FUNCTIONS 

The only active function that can be edited is the one indicated at the top of the state 
indicator display (see STATE INDICATOR), and then only if it does not additionally 
appear elsewhere in the display. This corresponds to the case where the function 
is the currently suspended one, and where no calls prior to the suspended one are 
incomplete. 

« Any attempt to change the local environment of a function in the above circumstances, 
such as by modifiyng the function header, or deleting, changing or adding labels to 
the function definition, results in a DEFN ERROR, 

NOTE: In the event of a DEFN ERROR described above, the local environment must be 
changed back to its former state or the name of the function must be changed. 

However, if as the result of editing, the line number of a labeled line is changed, 
the value of the label will be updated to the correct value upon exit from the function 
editor. 

CREATING SEPARATE VERSIONS OF A FUNCTION 

If while editing a non-active function, the name of the function is changed by editing the 
function header, then upon exit from the editor, all such changes will be reflected in a 
user defined function having the new name supplied. The old version of the function will 
still exist under the old name. Both function definitions will be available for subsequent 
editing. 
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DISPLAY DIRECTIVES 

A display directive may be entered after any prompt in lieu of a body entry or override 
directive, or as the last part of the function editor invoking line. 

(A) Displaying the complete function definition. 

- Enter the directive [Q] after any prompt, or as the last part of the 
invoking line. 

- The complete function definition is displayed followed by a prompt for 
line 1 + lL where L is the last existing line. 



Example: 



SCL!] 



Ci3 yr£!-<"ta,s+~a*o o o^.mb 

1 5 3 i? i: 3+ 1 6 inm^^Uf^ 3 + " 3. + ?i ; if-' I? ' 



(B) Displaying a function definition from line N to the end. 

- Enter the directive lUNl after any prompt, or as the last part of the 
invoking line. 

- The specified lines are displayed followed by a prompt for line 1 + LL. 



Example: 




[']^1 



51 "'r^+Ut4.tir;>rit?in*"i+?i;j.' i-. 



tf U7] 



NOTE. If N > L, no lines are displayed. 
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(C) Displaying a single line. 

- Enter the directive [^D] after any prompt, or as the last part of the 
invoking line. 

- The specified line is displayed if it exists. 

- This is then followed by a prompt for the line number indicated. 



Example: 




EDITING AN EXISTING LINE 

An existing line may be edited by first displaying it and then, following the subsequent 
prompt for that line, employing the line edit procedure (see LINE EDITOR) to edit the 
displayed line. This technique is more expedient than replacing the entire line if the 
change is minor and the line is quite long. 

The line to be edited is exactly as displayed, including the line number in brackets. An 
appropriate search string must be chosen with this fact in mind. 

If the line number is changed by editing, a new line having that number is created, and any 
other editing changes made in the current line editing process apply only to it. The origin- 
ally displayed line is, in this case, left unchanged. The new line will be inserted in the 
appropriate position in the function definition. 

Upon completion of the line edit procedure and incorporation of the line as edited into the 
function definition, a prompt for line N+. 1*D follows, where N is the line number of the 
edited line. 

REPOSITIONING AN EXISTING LINE 

An existing line can be repositioned in the function definition by editing the line number of 
the line after displaying it, as discussed above. This results in the line appearing at both 
the old and new positions. The delete procedure can then be used to remove the line from 
its old position. 
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TERMINATING THE FUNCTION EDITOR 

When the user is satisfied with the function definition he has supplied to the editor, or with 
any changes or displays he may have requested, he may indicate termination from the 
editor by placing a v ('del') as the last non-blank character on any input line. Upon success- 
ful completion of any request of the input line, exit from the editor occurs and the system 
awaits input for im.mediate execution. 



Example: 



^C2n]v 




(system awaiting input for immediate execution) 

VDATE 

(system awaiting input for immediate execution) 

If, however, the request cannot be accomplished, the appropriate error is issued and exit 
from the editor does not occur. Instead an appropriate prompt is issued. 

As part of the function exit procedure, the lines of the function definition body are assigned 
contiguous integer values starting with one, independent of the ORIGIN setting. 

DOCUMENTING USER-DEFINED FUNCTIONS 

Since an APL user can display any part or all of a function at any time, it would be useful 
for function lines to be capable of containing non-executable character data which could 
serve as documentation for the function, supplied while it is being created or subsequently 
edited. 

Useful information could include purpose of the function, acceptable shapes, domains and 
conformability of the arguments (if any), nature of the result (if any), as well as explana- 
tory comments to clarify any body line in the function definition. 

To achieve this capability, special symbol n (verbalized 'lamp') is available. The lamp 
symbol acts as a delimiter. Just as the colon delimits a label from the executable portion 
of a line to its right, the lamp symbol delimits any executable portion of a line from 
documentation to its right. 

Example: 

[3] I,J//£'3:B-<-(p/l)pS fl GIVE B SHAPE OF A 

[7] B THIS WHOLE LI HE IS A COF.MEET 
NOTE: Comments must not appear in a function header line. 
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USING SYSTEM COMMANDS WHILE EDITING 

While the editor is invoked, an input line in the form of a system command will be inter- 
preted as such. The most useful system command to issue while editing is the )SAVE 
command. )SAVE will save a current edition of the active workspace, including the latest 
form of the function definition currently being created or modified. Should the APL session 
be aborted due to transmission line difficulties or system failure, recovery from the 
SAVE'd workspace will minimize the number of lines to be reentered. The saved version 
of the function definition is stored as if an exit from the editor had taken place. That is, 
definition lines are renumbered, and if the SAVE'd workspace is loaded, the editor must 
again be invoked before it can be used. 

FUNCTION EDITOR ONE-LINERS 

For an existing function, the line invoking the editor can specify a one-line addition or 
replacement or a display directive, followed by a closing 7 . Thus a single input line can 
invoke the editor, direct one task to be done, and cause exit from the editor, with the 
system then awaiting input for immediate execution. 

Example: 

VSQUISHLQlV 

(system awaits input for immediate execution) 

V0LDL2.51 i?-<-(~l+pA)ri+p/JV 
(system awaits input for immediate execution) 

SUMMARY 

A complete summary of the possible input combinations for invoking and using the function 
editor are listed on opposite page. 
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To invoke the editor (new function): 

' <function header> -E V 3- 

To invoke the editor (existing function): 

V <function name> f ,.. , ^i,7^ ^"*^y>; 
L<display directive>J 

To enter a line: 

fr<line number>]l- <body line> -f-vj- 



note: function header is line 0. 



To display entire definition: 

CD] -Eva- 
To display all lines from N to last: 

CD/7] -EV3- 
To display line N: 

To delete line N: 

I in 

< blank line> 

To change current line number: 

[<line number >] 

To edit a line: 

CiVO] 

<line edit procedure> (see line editor) 
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IN I KUUUU I I v^n 

In addition to the APL language, the APL system provides for an additional method of com- 
munication in the form of system commands. System commands complement the facilities 
provided in the APL language and allow the user to monitor, vary and protect his process- 
ing environment. 

SYNTAX 

) <command name)>- [< parameter list>] 

The above is the most general syntax of a system command. The valid syntactic form for 
a specific command will be stated under the description of that command. Items in the 
parameter list are delimited from each other and from the command name by one or more 
spaces. Any error in the syntax of the command results in the error report INCORRECT 
COMMAND. 

DOMAIN 

Certain system commands can have nunneric parameters. The domain of these parameters 
is stated for each such command. Any value not In the required domain results in the error 
report INCORRECT COMMAND. 

INPUT REQUIREMENTS 

System commands will be interpreted as such in any of the following input situations: 
« the system is awaiting input for immediate execution. 

• the system is awaiting quad input (quad prompt at left). 

• the system is awaiting a function line edit request. 

In each of these cases, an input line in which the left-most non-space character is a right 
parenthesis will be interpreted as a system command. 
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Only one system command may be entered on any one input line. 

Nothing else in addition to a system command may be entered in an input line. 

Where system command names are longer than four letters, the first four or more letters 
of the name may be used in lieu of the complete name. 

CATEGORIES OF SYSTEM COMMANDS 

Listing the global workspace objects. 

Forming, modifying and listing groups. 

• Erasing global objects. 

« Debugging aids. 

Determining and altering workspace environment parameters. 

« Workspace library facilities. 

« Termination of APL session. 

« Examining and altering display device parameters. 

ACTIVE WORKSPACE 

Each currently active user is provided with an environment in which to process his data. 
This environment is called the active workspace . 

The active workspace is a directly accessible storage allocation sufficient in size to contain 
the workspace objects currently defined, the function environments of currently active 
functions, the state indicator, stop lists, and the four environmental parameters: ORIGIN, 
DIGITS, FUZZ and SEED. 

For APL*CYBER, the maximum size of a workspace is installation dependent, but is in 
the order of 10. 000 words less than the maximum field length allowed for a user. Any 
attempt to exceed this capacity results in the error report WS FULL, 

The active workspace has provision for an identification (ID) in the same format as in 
library workspaces. (See WORKSPACE IDENTIFICATION. ) 
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CLEAR COMMAND 

syntax: )CLEAR 

action: • provides an active v/orkspace with the following: 

1. workspace ID empty 

2. no objects 

3. empty state indicator 

4. ORIGIN 1 

5. FUZZ2*"4 3 (approx. IE"13) 

6. DIGITS 10 

7. SEED 192527075924404 

8. input mode: awaiting input for immediate execution 

• successful completion of the command is indicated by the report 
CLEARED WS, 

example: ) CLEAR 

CLEARED WS 

GLOBAL OBJECT INVENTORY 

A system command listing global object names exists for each of the three kinds of work- 
space objects. 

VARS COMMAND 

syntax: )VARS [< letter >] 

action: lists the names of global variables currently defined in the active work- 

space in alphabetic order; 

no letter list all names. 

with letter - list all names starting with this or an'^'' hi^'her letter 
in the aphabetic sequence. 
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note: Alphabetic sequence is as follows: 

A - Z 

0-9 (cannot use digit as letter) 

A 
a - z 



also note: Names of global variables currently masked will be listed. 

examples: a<-ac«-A«-A2«— a7«-aB«-5 

)VARS 
A A2 a aB a7 ac 

)VARS a 
a aB a7 ac 

FNS COMMAND 

syntax: )FNS [< letter >] 

action: lists the names of user-defined functions currently existing in the active 

workspace in alphabetic order (see )VARS). 
The use of a letter causes the same action as when used with )VARS. 

GRPS COMMAND 

syntax: )GRPS [<letter>] 

action: lists the names of group definitions in the active workspace in alphabetic 

order (see )VARS). 



The use of a letter causes the same action as when used with )VARS. 



GROUPS 



A group is a named set of potentially existing global workspace objects. It is useful to be 
able to reference a package set of defined functions and their global variables as a group 
when using )COPY , )PCOPY and )ERASE (q. v. ), A group is defined by a group 
definition which, when supplied, is itself a workspace object. 

A group definition is a named set of identifiers. The name of the set is the name of the 
group. The identifiers are names of potentially existing global workspace objects. If and 
when a global workspace object exists having a name identical to an identifier in the group 
definition, it is a member of the defined group. A group definition is supplied using the 
)GROUP command. 
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GROUP COMMAND 

syntax: )GROUP <group name> <identifier list> 

action: creates a group definition. 



^i. X Ul. J. ^^ ^\J± I.. 



The group name is the same as the name of an existing function or global variable, 

REFERENCING GROUPS 

When a reference is made to a groijp via the )COPY . )PCOPY or )ERASE commands, 
reference is made initially to the group definition in the indicated workspace, and addition- 
ally to all existing global objects in that workspace referenced by identifiers in the identi- 
fier list. Such objects are said to referents of the corresponding identifiers. 

Groups may themselves be referents of a group. In this case, reference is implied to all of 
that group's referents in the same manner as applied to the first group. Indirect referencing 
of referents to as many levels as there are groups within groups is thus accomplished. 

example : Xf-Y-*-Z-^Tf- 'DATA* 

)GROUP Gl X Y G2 

)GROUP G2 Z T 

)SAVE WS 
WS SAVED - 73/05/01. 08.13.01. 

) CLEAR 
CLEARED WS 

)COPY WS Gl 
WS SAVED - I'i/Ob/Ol. 08.13.01. 

)VARS 



Gl G2 

An object can be a referent to more than one group. An object can be multiply-referenced 
directly and indirectly by the sanne group definition. Even circular definitions are possible. 
The mechanics of )COPY , )PCOPY and )ERASE are such that the end result is identical 
to a single reference of such an object. 
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example: ) GROUP GPl A A GP2 

) GROUP GP2 B GPl A 
A*- 5 

)SAVE WS 
WS SAVED - 73/05/03. 08.06.59. 

) CLEAR 
CLEARED WS 



)COPY WS GPl 
WS SAVED - 73/05/03. 08.06.59, 

)VARS 
A B 

)GRPS 
GPl GP2 



ALTERING A GROUP DEFINITION 

(a) Adding members to the group. 

)GROUP <group name> <addendum identifier(s)> 

If the group name is the same as an existing group, it is an immediate reference to 
the old definition of the group. As such it implies the old identifier list. Identifiers 
in the current )GROUP command imply additions to the list. 



example: 



) GROUP X A B C 
) GROUP X Z 
)GRP X 

B C 



(b) Dispersing a group. 

)GROUP <group name> 

If a group command consists solely of a group name, it implies an empty identifier 
list, and thus a group with no defined members. This causes any previous group 
definition by that name to be destroyed, and no new one to be formed. 

) GROUP X 

)GRPS 
(blank) 

(c) Any general change in a group definition. 

Disperse the existing group, then create a new group definition. 
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DISPLAYING A GROUP DEFINITION 

A group definition can be displayed via the )GRP command. 
GRP Command 



syniax: 
action: 

error report: 



)GRF <^roup nanie> [<ietter>j 

the identifier list of the group definitton is displayed in alphabetic 
order (see )VARS). The use of a letter causes the same listing 
action as when used with )VARS. 

OBJECT NOT FOUND 

< identifier list> 

indicates a group definition could not be found in the active work- 
space with a name identical to the identifier listed. 

)GROUP X A B C 
)GRP X 



ABC 



B C 



)GRP X S 



GENERAL NOTES ON REFERENCING GROUPS 

1. )COPY and )PCOPY references to groups refer to the group definition and group 
members existing in the workspace being copied. 

2. If )PCOPY is used to copy a group and a global object in the active workspace has 
the same name as the referenced group in the workspace being copied, no copying 
using that group name can occur. 

3. )ERASE reference to a group refers to the grouj) definition and existing group 
members in the active workspace. 

4. Creation, modification, display and dispersing of groups can occur only in the 
active workspace and only reference the group definition, not its members. 
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ERASING GLOBAL OBJECTS 



ERASE COMMAND 

syntax: 
action: 



error report: 



example: 



VI 



Fl 



Gl 



)ERASE <object name list> 

Global objects having names corresponding to those in the object 
name list are erased from the active workspace. 

If a name in the object name list is a group name for which there is 
a group definition in the active workspace, then in addition to eras- 
ing the group definition, all referents in the group definition are 
erased. If one of the referents is another group definition, erasure 
of that group definition and all of its referents is also performed. 
Indirect referents to all levels of group structuring are thus erased. 

If a referenced object cannot be found no message is reported, since 
this is the desired result upon completing the command. 

NOT ERASED: 

<identifier list> 

Active user-defined functions cannot be erased. 



)VARS 

V2 V3 

)FNS 

F2 f3 

) GROUP Gl VI Fl 
)GROUP G2 VI F2 
) GROUP (73 VZ F3 
)GRPS 

G2 GZ 



72 



Fl 



(71 



)ERASE VI F2 ff3 
)VARS 

)FNS 

)GRPS 

G2 
)ERASE X 
)VARS 



V2 
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DEBUGGING AIDS 



SI COMMAND 



syntax: 



aciioti: 



)SI 

The )SI command produces a display of the State Indicator , a list 
of all the function calls that are currently active, displayeu in 
reverse order to the sequence of the calls; i. e. , the most deeply 
nested call in the current sequence is at the top of the list. 

The line on which the function is pendant or suspended is placed in 
brackets after the function name. Function calls that are suspended 
are flagged with an asterisk (*). 

Although not generally advisable, it is possible to initiate an 
additional calling sequence after a current sequence is suspended. 
If this is done, the state indicator will reflect the complete status 

r\f all QimVi CJ f n ,-. 1^ Ci .-1 .r^-,1 r=>-i^r,,l/:.'l ^.-ilir*-!^ ,^ ^ ^-, , ^ ^^ " " " i-U^ , ^i ..i. 

listed first. 



note: 



Each issuing of a niladic branch will remove the local environments 
of the most current calling sequence, and remove the correspond- 
ing entries in the state indicator up to the next suspended function. 
Thus in order to completely clear the state indicator, it is neces- 
sary to issue as many niladic branches as there are asterisks 
(suspensions) in the state indicator. 

(See examples on next page. ) 
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examples: '7R-*-A FUNl CiZ 

[1] R't-A+FUN2 C 

1:2] V 

VR-*-FUN2 C 
[1] +. n THIS LINE WILL SUSPEND ON SYNTAX ERROR 
[2] V 

2 FUNl 3 
SYNTAX ERROR 

V 

FUN2111 +.n THIS LINE WILL SUSPEND ON SYNTAX ERROR 

)SI 
FUN2ill * Indicates FUN2 is suspended on line 1, 

FUNlil'] Indicates FUNl is pendant on line 1. 

4 FUNl 5 
SYNTAX ERROR 



FUN2111 +.B THIS LINE WILL SUSPEND ON SYNTAX ERROR 

)SI 
FUN2111 * 
FUNlLi:\ 
FUN2\:il * 
FUNlLll 



Second suspended calling sequence. 
First suspended calling sequence. 



)SI 
FC/ff2[l] * 
FUNllll 



First suspended calling sequence (environment 

of second sequence is removed from the work- 
space). 



)SI 



(blank) 



State indicator is empty. 
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SIV COMMAND 

syntax: )SIV 

action: 



The action of SIV is similar to SI, but in addition to providing the 
function call names and line numbers, the local variables (including 

, — - J3—-.** v»*««, ^^^M.^ ^ wkJVkAb/ AVX ^d-X^XX XU1X^I.XW11 k^CLXi. cll'C IICJICU. 



example: using tbe same functions as the example in )SI : 

2 FUNl 3 
SYNTAX ERROR 

V 

FUN2li:\ +. 
)SIV 
FUN2111 * 



C R 

A B 



)VARS 



^ Note: not the same v^ris^hi! 



Note: no global variables 



B 



VALUE ERROR 

V 

R 



No value has been assigned to the 
result variable for FUN2 
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STOP COMAAAND 

The STOP command provides a useful debugging tool for allowing examination of the function 
environment at strategic points in the function. 

syntax: )STOP <function name> [<function line numbers (stop list) >] 

action: • The line numbers in the stop list are added to previously set line stops 

(if any). 
« The function is modified so that it will be suspended prior to starting 
execution of the lines specified. 

consequence: If during subsequent execution of the named function a stop-designat- 

ed line is encountered for execution, suspension of the function 
occurs on that line prior to its execution. 

The function name followed by the line number in brackets is output, 
followed by a request for input for immediate execution. 

notes: • The line numbers need not be in order in the stop list, 

« If line 1 appears in the stop list, suspension occurs initially 
before any lines of the function are executed. In this case, all 
local variables are undefined except for the arguments. However, 
any masking of the global environment will have taken place. 

• If the function is subsequently edited and additional lines are 
inserted or others deleted so as to change the line numbers of 
the lines designated in the stop list, the lines originally designat- 
ed, even though their line numbers may now be different, are 
the ones on which suspension will occur. 

« If a stop-designated line is edited, the stop designation is removed. 

» If a stop-designated line is deleted, the designation is removed 
from the stop list. 

« If a function with a stop list is copied to another workspace, the 
copied version will have a stop list. 

a Complete removal of stop control for a function is provided by 
issuing a STOP command for the function with an empty stop list: 

)STOP < function name> 

error reports: OBJECT NOT FOUND 
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Vi?-t-4 FUN3 B 
[13 i?-^il + 2xB 
[2] R*-R[B*2 
C3] V 

)STOF FUN3 2 

5 FUNZ 3 
FUN3L 21 

)SI 
FUSZlll * 



11 



11 



11 



)5J 

)52'(?P FUNZ 
5 FyiV3 3 
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ENVIRONMENTAL PARAMETERS 

ORIGIN COMMAND 

syntax: )ORIGIN "E i } 

action: (a) or 1 supplied. 

• ORIGIN is set to the value supplied. 

c The previous value of ORIGIN is reported. 

(b) no parameter supplied. 

* The current value of ORIGIN is reported. 

note; ) CLEAR sets ORIGIN to 1. 



example: ) ORIGIN 

1 

)ORIGIN 
WAS 1 

) OR I GIN 




DIGITS COMMAND 

syntax: )DIGITS [<integer>] i <Integer<15 

action: (a) Valid parameter supplied. 

« DIGITS is set to the value specified and the previous value 
is reported. 

(b) no parameter supplied. 

« The current value of DIGITS is reported. 

consequence: DIGITS is used in numeric element formatting in formatting output 

displays and by the format primitive function (see Displaying Data. ) 

DIGITS is the msiximum number of significant digits that can 
appear in a numeric element representation display. 

note: )CLEAR sets DIGITS to 10. 

example: )DIGITS 

10 

) DIGITS 12 
WAS 10 

)DIGITS 
12 
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SEED COMMAND 

syntax: 
action: 



examples: 



)SEED [< integer >] 



0< integer <(2*48) - 1 



note: 



(a) Valid parameter supplied. 

« SEED is set to the integer specified if > 2*47 , otherwise 
the integer supplied is multiplied by a power of 2 sufficient 
to create a SEED such that (2*47)< SEED < (2*48) - 1 

« The previous value of SEED is reported. 

(b) no parameter supplied. 

The current value of SEED is reported. 

)SEED 
1.925270759£'1U 

)SEED 129653 
WAS 1.925270759£'m 

)SEED 
2.78427897HSlit 

)CLEAR sets SEED to 192527075924404. 



Valid Settings for SEED 

The randomness of generated numbers is very dependent on the setting of SEED. Good 
randomness is achieved by numbers whose binary representation contains a fairly even 
distribution of ones and zeros. 

Zero, powers of 2 and small numbers should not be used. 

When to set SEED 

While debugging an APL program that uses the primitive functions Roll or Deal it is highly 
desirable that the same sequence of random numbers be generated on each test, so that 
successive sets of results may be readily compared. This can be accomplished by reset- 
ting the SEED to the same value prior to each test. 

An alternative procedure would be to )SAVE the workspace prior to each test; then 
)LOAD the saved workspace after execution and evaluation of each test, but prior to 
modifying any functions or test data. 
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LIBRARY FACILITIES 

Each APL user is provided with facilities for preserving his user environment (the active 
workspace) at any point in a session as a permanent library workspace. This allows him 
to subsequently reinstate that workspace as the active one, thus reestablishing the environ- 
ment exactly as it was when saved. 

A user may maintain as many saved workspaces as he wishes in his user private library . 
Each stored workspace has a workspace identification (ID) by which it can be referenced. 
Facilities exist for listing the ID's of workspaces in any user's library, for updating or 
deleting individual workspaces in a user's own library, and for incorporating specified 
objects or groups from stored workspaces in any library into the currently active one. 

In addition, the user is provided with a security of access to, and erasure or modification 
of, his saved workspaces by a password and user key facility. 

WORKSPACE IDENTIFICATION 

<workspace ID> := [<library ref >] <workspace name> [:<password>] 

Every workspace has an identification (ID) consisting of: 

• a library reference (owner's user ID). 
« a workspace name. 

« an optional password. 

The library reference consists of one of the following: 
« * (references the APL standard public library) 
« * < alpha library owner's user ID> 

• [*] <numeric library owner's user ID> 

The workspace name is formed according to the same rules as apply to an identifier, but in 
addition is restricted to the character set and number of characters allowed by the host 
operating system. Currently, this restriction is 7 or fewer characters selected from the 
set A - Z, - 9. The password is formed according to the same rules as the workspace 
name. 

Note that spaces are not allowed between the asterisk and the library ID, or between the 
colon and the password. 
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Defaults 

If the workspace ID is omitted in a command which references a workspace, the workspace 
lu aeiauiiB lu uicit ui tne i^uirem-ij <x>^i.ivc wwi i^^ot'"-'-"-* 

If the library reference is omitted, it defaults to the user's own library. 

If the password is omitted, it defaults to no password. 

Reports 

Several commands report workspace ID'S. In such cases, the following rules are used: . 

« The library ID is not reported. 

The password (if any) is never reported. 

a If there is no workspace ID, it is reported as CLEAR. 

NOTE: 

1. A workspace initially saved without a password cannot have a password added by a 

subsequent )SAVE command. 

2. A workspace initially saved with a password cannot have the password removeu or 
changed by a subsequent )SAVE command. 

3. However, the workspace password condition can be changed by loading the workspace, 
dropping it, and then saving it again with a new or different password or without a 
password. 

4. The creator of a workspace need not use passwords for referencing his own work- 
space. 
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SAVE COMMAND 

syntax: 
action: 



error reports: 



)SAVE ^workspace ID>] 



consequences: 



« A workspace identical to the currently active workspace is 
created in the specified library. 

• The created workspace is designated with the workspace ID 
supplied or, if not supplied, with the workspace ID of the active 
workspace. 

• Any previous workspace in the user's library bearing the ID of 
the newly created one is dropped. 

« The name of the active workspace is changed to that given in the 
SAVE command, if supplied. 

• Upon successful completion of the command, the following is 
reported: 

<workspace ID> SAVED <datextime> 

• IMPROPER LIBRARY REFERENCE 

an attempt was made to save a workspace in another user's 
library. 

• NOT SAVED - THIS WS IS <active workspace ID> 

An attempt was made to SAVE a workspace under an ID of a 
currently existing library workspace while the active work- 
space ID was different. (This protects one from inadvertently 
overwriting a desired library workspace. ... If such action 
is intended, precede the SAVE command with a )WSID 
command (q. v. ) supplying the ID desired. ) 

• NOT SAVED - THIS WS IS CLEAR 

)SAVE with no parameters was issued with an active work- 
space having no workspace ID, 

« If a SAVED workspace ID includes a password, subsequent 
referencing of the workspace must include the password. 
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examples: 



)SAVE XI SZ 
XISZ SAVED - 73/05/09. 15.37.04. 

)SAVE 
XISZ SAVED - 73/05/09. 15.37.16. 

)SAVE XISZ-.l 
XISZ SAVED - 73/05/09. 15.38.21. 

) CLEAR 
CLEARED WS 

Yfl■^X•*■Z 



(save as workspace named 
"XIS3", and set WSID to same) 



(re save under same name) 



(resave with password) 



)SAVE XISZ 

NOT SAVED - THIS WS IS CLEAR 

)WSID XISZ 
WAS CLEAR 

)SAVE 

XISZ SAVED - 73/05/09. 15.43.12. 



(XIS3 already exists) 

(declare this WS to be "XIS3") 

(and save it) 
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LOAD COMMAND 

syntax: 
action: 



error reports: 



)LOAD [<workspace ID>] 



« A search is made for the library indicated. 

* If the library is found, a search is made for a workspace with 
workspace name as indicated, 

* If the workspace is found and includes a password in its ID, a 
check is made for a match with the password supplied. 

c If found, the indicated workspace is loaded as the active work- 
space, replacing the previous environment of the active work- 
space. 

« The active workspace ID becomes the ID of the loaded workspace. 

« Upon successful completion of the command, the following is 
reported: 

<workspace ID> SAVED <date (YY MM DD)><time (HH MM SS)> 

» <workspace ID> NOT FOUND 

no library could be found from the reference given. 

password does not match. 

no workspace by that name in referenced library. 

» APL SYSTEM ERROR 1. 

workspace is damaged. 
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examples: 



X-*-3 



user A logs in 



XIS3 SAVED - 73/05/09. 15.41*. 59, 

) CLEAR 
CLEAR WS 

)VARS 



(time stamp) 



)LOAD XIS3 
XIS3 SAVED - 73/05/09. 15.«t»f.59. 

)VARS 
X 

X 
3 

X*-2 

)LOAD 
XIS3 SAVED - 73/05/09. 15.ti+.59. 

X 
3 

)SAVE XISZ-.ABC 
XISZ SAVED - 73/05/09. 15.57.0i|. 

)OFF 



(time stamp) 



(change X) 
(reload) 



(X restored) 



user A logs off 



)LOAD XI S3 

XISZ NOT FOUND 

)LOAD XIS3:PQR 
XIS3 NOT FOUND 

)LOAD XIS3:ABC 
XIS3 SAVED - 73/05/09. 15.57.04. 



user B logs in 



(password not given) 



(password incorrect) 
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COPY COMMAND 

syntax: )COPY {<workspace ID> {<object list>}3 

action: « A search is naade for the workspace indicated as for )LOAD. 

« If found, the specified objects are searched for in the workspace 
global environment and, if found, copied into the active work- 
space, replacing any existing global object in the active work- 
space having the same name, 

• If a specified object is found to be a group definition in the refer- 
enced workspace, then in addition to copying the group definition, 
all referents in the group definition are copied. If one of the 
referents is another group definition, it and all its referents 

are copied. Indirect referents to all levels of group structuring 
are thus copied. 

« If no object list is provided, all global objects in the referenced 
workspace are copied. 

• Successful completion of the command results in the report: 

<workspace ID> SAVED <date> <time> 

note: Only global objects are copied. The function local environments, 

state indicator, stop lists and environmental parameters cannot be 
copied, and those in the active workspace are undisturbed. 

error reports: <workspace ID> NOT FOUND 

as for )LOAD 

OBJECTS NOT FOUND 
<identifier list> 

the objects reported in <identifier list> could not be found in 
the referenced workspace. 

APL SYSTEM ERROR 1 

the referenced workspace is damaged. 

note: Objects in the object list that have the same name as functions that 

are pendant or suspended in the active workspace will not be copied. 
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examples: 

)SAVE XIS3 
XIS3 SAVED - 73/05/09. 16.06.54. 

Xf-2 

Yf-3 

Z-*-5 

)COPY XI S3 
XIS3 SAVED - 73/05/09. 16.06.54. 

X.Y.Z 
3 4 5 

X-*-2 

J-^3 

)COPY XI S3 Y 
XIS3 SAVED - 73/05/09. 16.06.54. 

D-*-P-*-X,Y,Z 
2 4 5 

) GROUP GEPl X Z A 

)SAVE 
XIS3 SAVED - 73/05/09. 16.07.27. 

) CLEAR 
CLEARED WS 

)COPY XI S3 OR PI P 
XIS3 SAVED - 73/05/09. 16.07.27. 

) VARS 
P X Z 

)GRPS 
GRPl 

)GRP GRPl 
A X Z 



(copy entire WS) 
(time saved) 

(X, Y, & Z restored) 



(copy Y only) 

(create P) 
(Y only restored) 
(create a group) 
(save it) 



(copy GRPl & P) 



(A is not defined in "XIS3") 



(But A is still part of the group 
definition) 



19980400 B 



14-23 



PCOPY COMMAND 

syntax: )PCOPY{<workspace ID> [<object list>]] 

action: Action is identical to )COPY exept that objects whose names are 

identical to the names of objects in the active global workspace are 
not copied, thus protecting the objects already there. 

error reports: <workspace ID> NOT FOUND - as for )LOAD 

OBJECT NOT FOUND - as for )COPY 

<identifier list> 

note that objects which would have been prevented from being 
copied if found, are nonethless reported if not found. 



examples: 



)SAVE XI S3 
XISZ SAVED - 73/05/09. 16.10.39. 

X*-2 

) ERASE I 

) PCOPY XI S3 
XIS3 SAVED - 73/05/09. 16.10.39. 

X.I 
2 4 (Y only restored) 
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DROP COMMAND 

syntax: 
action: 



)DROP {<workspace ID>] 



error reports: 



« A search is made in the specified library for a workspace with 
the specified name, 

« If a workspace is found and includes a password in its ID, a 
check is made for a supplied matching password. 

• If found, the workspace is removed from the library. 

• The date and time when dropped are displayed to indicate 
successful execution of this command. 

• <workspace ID> NOT FOUND 

password does not match. 

no workspace by that name in the user's private library. 

• IMPROPER LIBRARY REFERENCE 

an attempt was made to reference a library other than the 
user's own. 



examples: 



X-*-3 

)SAVE XIS3 
XIS3 SAVED - 73/05/09. 16.01.14. 

)LOAD XI S3 
XIS3 SAVED - 73/05/09. 16.01.14. 

)DROP XIS3 
73/05/09. 16.01.14. 

)LOAD XIS3 
XIS3 NOT FOUND 

)SAVE XISS'.ABC 
XIS3 SAVED - 73/05/09. 16.01.58. 

)DROP XIS3:ABC 
73/05/09. 16.01.58. 



(create it) 
(timestamp) 
(load it) 
(time saved) 
(drop it) 
(time dropped) 

("XIS3 no longer exists) 
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WSID COMMAND 

syntax: )WSID {<workspace name>} 

action: (a) No parameters provided. The active workspace ID is reported. 

example: 

)WSID 

TEST 
note: an empty ID is reported as CLEAR; this does not 
necessesarily mean a CLEAR workspace: 

) CLEAR 
CLEARED WS 

A-*-5 

)WSID 
CLEAR 

(b) If a workspace ID is provided, it becomes the ID of the active 
workspace. The previous active workspace ID is reported. 

example: 

)WSID MODEL 
WAS CLEAR 

)WSID 
MODEL 
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examples: 

)WSID 
CLEAR 

}SAVE XI S3 
XIS3 SAVED - 73/05/09. 16.12.«^2. 

)WSID 
XI S3 

) CLEAE 
CLEARED WS 

)COPY XIS3 (restore objects in "XIS3") 

XIS3 SAVED - 7 3/0 5/09. 16.12.st2. 

) SA VE 
NOT SAVED - THIS WS IS CLEAR 

)WSID XIS3 (declare WS same as "XIS3") 

WAS CLEAR 

'^^^^^ (now it can be saved) 

XIS3 SAVED - 73/05/09. 16.13.27 
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LIB COMMAND 

syntax: )LIB {<library ref>} 

action: « The workspace names of the user's own library are listed if no 

parameter is supplied, 

« Password protected workspaces are listed in the above case, 
but the passwords are not listed. 



examples: 



)LIB 



)SAVE XIS3 
XIS3 SAVED - 73/05/09. 16.15.»H. 

)LIB 
XIS3 

)SAVE NEWX:ABC 
NEWX SAVED - 73/05/09. 16.17.03. 

)LIB 
SEWX XIS3 



LIBRARY ACCESS 

Suppose the above user, JOE, logs out, and FRED logs in, and does the following: 

)LIB 

)LIB *JOE 
NEWX XIS3 
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)LOAD *JOE XIS3 
XISZ SAVED - 73/05/09. 16.17.03. 

X 
3 

)LOAD *JOE NEWX 
NEWX NOT FOUND 

)LOAD *JOE NEWX: ABC 
NEWX SAVED - 73/05/09. 16.17.03. 

)LIB 

)WSID 
NEWX 

IMPROPER LIBRARY REFERENCE 



)DROP *JOE NEWX '.ABC 
IMPROPER LIBRARY REFERENCE 

)WSID MYX 
WAS NEWX 

)WSID 
MYX 

)SAVE 
MYX SAVED - 73/05/09. 21.32.16. 

)LOAD NEWX 
NEWX NOT FOUND 

)LOAD MYX 
MYX SAVED - 73/05/09. 21.32.16. 

yLOAD *FRED MYX 
MYX SAVED - 73/05/09. 21.32.16. 
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USER LIBRARY WORKSPACE SECURITY 

A user may quite safely divulge his system user ID to some other user so that the latter 
may load or copy any or all objects from unprotected workspaces. The alternate user may 
interrogate workspaces available to him by )LIB {<library ref>]. )SAVE or )DROP is not 
permitted using an alternate library reference. A user can save workspaces only in his 
own user library and can only )DROP his own workspaces. 

Knowing a person's system user ID is in itself not sufficient to allow that person to log-on 
under that ID. To do so, he requires that person's system log-on password. This pass- 
word should never be revealed to anyone under any circumstances! Possession of this 
password permits the holder complete freedom of access to workspace libraries under the 
corresponding user ID. 

THE CONTINU WORKSPACE 

A user may terminate his session with the system command )CONTINU. This effects a 
)SAVE to a user library workspace with the name CONTINU and then terminates the 
session. A )SAVE to CONTINU is also permitted. 

At the start of every session, an automatic LOAD of the CONTINU workspace takes place 
if one exists. 

start of session: APL 

APL*CYBER. Fl.O TASC 

73/05/19 14:19:03 

CONTINU SAVED - 73/05/18 16:29:56 

)WSID 
CONTINU 

Note that the date and time CONTINU was last saved are shown in the same manner as 
in response to a )LOAD command. 

The CONTINU workspace can be referenced in any system command that validly refer- 
ences a workspace: i.e., )SAVE , )LOAD , )DROP , )COPY , )PCOPY . )LIB will 
list CONTINU if it exists. 
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TERMINATING AN APL SESSION 

An APL session can be terminated in any of the following ways: 

1. With the system command )OFF 

2. With the system command /CONTINU 

3. With the system command )SYSTEM 

4. By intentionally disconnecting the terminal connection. 

5. By unintentional dropping of the terminal connection due to a variety of trans- 
mission difficulties. 

6. By a computer malfunction or operating system problem occurrence. 

In case 2, the active workspace will be saved in the user's CONTINU workspace. 

)SYSTEM returns control to the operating system command mode. All other cases cause 
a log-out of the user from the system. 

Cases 1, 2 and 3 are tei'med normal session termination and respond with a display of 
session statistics and terminating status information. 

Cases 4, 5 and 6 do not generate a response and do not save the workspace. 

)OFF 
CPU TIME 3.560 SEC. 

WORKSPACE 149 3 WORDS. 



NOTE: In the event of a dropping of the terminal connection, recovery may be attempted by 
redialing the computer, typing one's user name and password and in response to the display 
of RECOVER/SYSTEM: type RECOVER. If recovery is possible, enter a carriage return. 
The APL session will be in the state in which it was left, save data lost during the trans- 
mission. 
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DISPLAY DEVICE PARAMETERS 



The two display device parameters maintain their settings, unless specifically altered, 
for the entire APL session. They are WIDTH and LINES. Default settings are assigned 
at the start of a session based on the declared terminal type (including batch). These 
parameters do not reside in the active workspace, and thus cannot be saved in library 
workspaces. 



WIDTH COMMAND 



action: 



examples: 



)WIDTH f<integer>3 30 <integer <254 

(a) valid parameters supplied. 

• WIDTH is set to the value supplied. 

• The preArious value of WIDTH is reported. 

(b) no parameter supplied. 

• The current value of WIDTH is reported. 



WAS 72 



50 



) WIDTH 50 
)WIDTB 



consequence: 



default value: 
LINES COMMAND 

action: 



Until again changed later in the session, all displayed output will 
be formatted in lines not exceeding WIDTH characters in width. 
Data which otherwise would appear on the same line will be con- 
tinued on the following line or lines. The line continuation format 
for the declared display device will be used. 

See appendix for default values for specific terminals. 



)LINES {<integer>j ^integer <~l+2*48 

(a) valid parameter supplied, 

• LINES is set to the value supplied. 

• The previous value of LINES is reported. 

(b) no parameter supplied. 

• The current value of LINES is reported. 
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consequence: If the setting of LINES is non-zero, output is displayed on the 

output device in "pages" LINES lines long. At the end of each 
"nage". the displav will halt and reauest 00-ahead arcnrdincf to the 

left margin. Any input will then cause the display to continue. 
The last such "page" does not request go-ahead, as the display is 
complete. Neither does "fill" to the end of the page occur. 

If the setting of LINES is zero, no paging occurs. 



examples: 



WAS m 



) LINES 
) LINES 



This provides users on terminals with volatile displays a chance 
to peruse an entire screen of information for any desired period. 
To continue displaying output, the user inputs a blank line. 

AudUionai halts will occui' on subsequent screerisful of output until 
the entire display has been sent. 



note: 



The remainder of the display is aborted by pressing the 'BREAK' 
or 'ATTN' key. 



default value: 



The default setting of lines will be equal to the line capacity of the 
display less 2 (to allow for the prompt line and input line). 



The most usual non-default setting of LINES is zero which causes 
continuous scrolling of output without halts for the entire display. 
Zero is the default setting for all hard copy terminals. 
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TERMINAL ACCESS TO APL*CYBER SYSTEM ON KRONOS A 



1. Turn on terminal; set for on-line use. set to half duplex except as noted in 8(b). If 
your terminal is "hard-wired" to the computer system, go to step 6. 

2. Turn on data set. Set to half duplex if acoustic coupler. 

3. Dial the computer telephone number, 

4. Wait for a steady high pitched tone. 

5. Set for data; with acoustic couplers place the reciever in the proper position in the 
coupler cradle. 

6. This step is required only if the Terminal Protocol Routine is included in the KRONOS 
operating systeni on the CYBER computer you are attempting to use. Otherwise the 
dispiav stated below will appear automaticallv. 
key one of the following: 



Depend) nff on the Tvpe of terminal, 



IBM 2741 correspondence with APL ball: A 
IBM 2741 correspondence with standard ball: 

Memorex 1240 with APL belt: M 

All other terminals: T 

The system will return the following output display: 

73/01/15. 19.51.57. (current date and time) 
KRONOS TIME SHARING SYSTEM - VER. 2. 1. 
USER NUMBER: 

7. Key in your KRONOS user number. 
JOEBLOW return 

The system responds with: 
PASSWORD 



attention 



(carriage return 
I attention 



On nan-destructive display terminals, the second line consists of 9 multiply overstruck 
characters. On CRT displays (such as the CONTROL DATA 713) the net result will 
appear as XXXXXXXXX. Backspacing to the first line position then occurs. 
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8. Key in your KRONOS user password It is extremely important that this password 
not be revealed to any other person. On non-destructive display terminals, this pass- 
word will be keyed directly on top of the mask provided, so as to make the password 
illegible. 

On CRT display terminals this cannot be done, as each displayed character replaces 
the previously displayed one. Instead, use one of the following procedures: 

(a) Place one hand over the screen, key in the password followed by return with the 
other hand, then key the clear key which blanks the screen. 

(b) Set the switch at the back of the terminal to full duplex permanently if using an 
acoustic coupler. Set the switch on the coupler to half duplex except when keying 
the password, for which use the full duplex setting. This will cause the characters 
to be sent to the KRONOS system without being displayed on the terminal. Don't 
forget to reset the coupler to half duplex after this is done. 

(c) Reduce screen intensity and key in the password, now key the return and then 
clear and remember to reset the screen intensity when done. 

If an error is detected in the entered KRONOS user number or password, the system 
responds with the error message IMPROPER LOG IN, TRY AGAIN. 

This is followed by a repeat of the prompt USER NUMBER: whereupon steps 7 and 8 
must be repeated. 

An automatic disconnect from the system will occur after three unsuccessful attempts 
to do this properly. 

9. If steps 7 and 8 are completed satisfactorily the user is said to be 'logged in'. This 
is confirmed by the response TERMINAL: port number, TTY. 

The system then prompts the user to indicate which system he wants: 

RECOVER/SYSTEM: 

If the APL system is desired, the response to be entered depends on the type of 
terminal. 

CONTROL DATA 713: APL. 713 

TELETYPE 33: APL, TTY 

TELETYPE 38 with APL: APL. T38 

TEKTRONIX 4013: APL, TEK 

IBM 2741 APL, 2741 

MEMOREX 1240 APL, MEM 

FULL ASCII [APL 

L APL, ASC 
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The system replies to a proper request for the APL system with: 

AI^j_*~C X i>£jrt4 V !• w -I- ^terminSi. uype^ 

73/01/15. 19, 55,04. (logged-in date and time). 

If a workspace with the name CONTINU existed in the user's private library at the 
i.erminai.ion Ox bue previous session, tuat workspace is loaded as the active workspace 
to commence the current session. This fact is conveyed with the message: 

CONTINU SAVED - 73/01/15, 19, 25, 23, 

(last saved date and time) 

At this point the user is now in direct communication with the APL*CYBER system. 
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COMMUNICATING APL CHARACTERS B 



METHODS 

The APL characters are summarized in Table B-1. Communicating these characters 
between a terminal (or batch input and output device) and the APL*CYBER system is 
achieved in one or more of the following ways: 

1. Terminal keys corresponding to APL, characters communicate those characters 
when struck. 

2. Specific terminals may have a certain key defined as a substitute for a certain 
APL character and convey that character when depressed. Such particulars are 
listed under the appropriate section of supported terminals. 

3. On non-destructive display terminals (i.e., hard copy or storage tube) which are 
equipped with a backspace key, certain API, characters may be communicated by 
overstriking (explained below). 

4. A scheme of three character mnemonics exists for conveying any desired APL 
character and can be used on any terminal or batch I/O device. 

Output displays will, for each required character, utilize one of the above methods, 
according to device capabilities, in the preferred order as listed. 

OVERSTRIKES 

On terminals with a non-destructive overstrike, such as hard copy or storage tube terminals, 
repositioning to the line position of a previously keyed character and keying a second non- 
blank key (called overstriking) creates a compositely formed display graphic. If this 
graphic is a reasonable facsimile of the symbol for an APL character, that character is 
conveyed; otherwise the character is illegal, and is converted to the canonical 'bad' 
character. Note that underscored alphabetics and underscored A (delta) are equivalent 
symbols for lower case alphabetics and g respectively and may be formed by overstriking. 
On terminals with a standard APL keyboard, all but a very few special characters can be 
conveyed by direct keying or overstriking. 
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Note that as a consequence of the Visual Fidelity criterion, the keying sequence used in 
forming overstrikes is immaterial. Also, repeated overstriking the same key in the same 
line positon still conveys the same character. Overstriking with the space bar does not 
change the character conveyed. 

MNEMONICS 

On terminals not equipped with a standard APL keyboard, and as an alternative for any 
type of terminal, desired APL characters can be conveyed by means of mnemonics. 

Mnemonics exist for the entire APL character set except for the following 46 characters 
which are standard on any terminal: 

A . , .Z 0...9 • , ( ) + - = * / and space 

Further, there are no mnemonics for backspace, return, or any other non-graphic 
characters. 

All mnemonics are formed by a three-character combination consisting of a dollar sign 
($) followed by two upper case alphabetic characters. The $ character acts as a flag 
character and conveys that it along with the following two characters are to be treated as 
a group which compositely represents a single APL character. The $ character is 
standard on all terminals except some of those with APL keyboards. An overstrike com- 
bination exists to convey the $ character in this case. If the $ character itself is desired 
as a literal character, the mnemonic for dollar sign can be used. 

Also, a dollar sign is considered literal if it is not followed by an upper case alphabetic 
(e.g., '$1.50'). 

The two upper case alphabetic characters following the $ character have been chosen by 
the following scheme to aid in remembering them: 

« Lower case Roman alphabetic characters are conveyed by the double appearance of 
the corresponding upper case character. 

• If the APL character is used only as a character and not as a primitive function 
designator the two characters aire an abbreviation for the name of the synabol. 

« If the APL character is used as a primitive function designator, but is a character 
which has a generally known name, the two characters are an abbreviation for the 
name of the symbol. 



B-2 19980400 A 



« If the APL character is used as a primitive function designator and is a character 

abbreviation for the name of the primitive function. If the function is known by 
more than one name, an abbreviation of the most frequently used name is chosen. 

« For those APL primitives for which an alternate APL character exists, implicitly 
indicating 'first' for the indicated ordinal processing of the right argument, the two 
characters used are obtained from the two characters used in the mnemonic for the 
APL character which represents the standard form of the function call, replacing 
the second character by the next higher in the alphabet. 

The complete set of APL character mnemonics is listed in Table B-1. 

COMPATIBILITY 

It should be noted that, no matter how APL characters are communicated from whatever 
type of terminal, the APL system converts each APL character representation to a 
standard internal representation for processing. SAVE'd workspaces are also stored in 
this format. 

This means that workspaces creatdd while on one type of terminal may subsequently be 
loaded while on a different terminal type. Compatibility of workspace contents is thus 
ensured for users of all terminal types. 
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TABLE B-1. APL CHARACTER SET 



Graphic 


Mnemonic 


Meaning 


? 


$QU 


QUery 


u 


$OM 


OMega 


€ 


$EP 


EPsilon 


P 


$RO 


RhO 


~ 


$TL 


TiLde 


♦ 


$TA 


TAke 


+ 


$DR 


DRop 


t 


$IO 


iota 


O 


$CI 


Circle 


♦ 


$RT 


RoTate 


e 
4 


$RU 
$TP 


(reverse indexed 
rotate) 
Transpose 


* 


— 


asterisk 


• 


$LG 


LoG 


-»■ 


$GO 


Goto 


■«- 


$IS 


IS 


a 


$AL 


ALpha 


r 


$MX 


Max 


L 


$MN 


MiN 


— 


$UL 


UnderLine 


V 


$DL. 


DeL 


9 


$LD 


Locked Del 


t 


$DG 


DownGrade 


& 


$DT 


DelTa 


;(4) 


$DU 
$UG 


Delta Underscored 
(lower case delta) 
UpGrade 



Graphic Mnemonic Meaning 



A 

thru 

Z 

a(4) 
thru 
z(Z) 



thru 

9 



$AA 
thru 
$ZZ 



(upper case 
alphabetics) 



(lower case 
alphabetics) 



(numerics) 



(space) 



(") 


$DQ 


Double Quote 


("D 


$NG 


NeG 




$LT 


Less Than 




$LT 
$EQ 


Less than or 

Equal 

EQual 




$GE 
$GT 


Greater than or 
Equal 
Greater Than 




$NE 


Not Equal 




$OR 


OR 




$NR 


NoR 




$AN 


ANd 


t 


$ND 


NanD 




-- 


minus 




— 


plus 




$DV 


Divide 


1 


$XD 


matrix Divide 




$ML 


MuLtiply 
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TABLE B-1. APL CHARACTER SET (Cont'd) 



Graphic 


Mnemonic 


Meaning 


Graphic 


Mnemonic 


Meaning 





$NL 


NuLl 


* 


$NM 


NuMber sign 


f 


$QT 


QuoTe 


$(,$) 


$DO 


DO liar sign 


J 


$EX 


Exclamation mark 


% 


$PC 


PerCent sign 


D 


$QD 


QuaD 


S 


$AM 


Ampersand 


□ 


$QP 


Quad -Prime 


Q 


$AT 


AT sign 


( 


-- 


paren (left parenthesis) 


i 


$LB 


Left Brace 


) 


-- 


close (right parenthesis) 


y 


$RB 


Right Brace 


C 


$OB 


Open Bracket (sub) 


< 


$CT 


CenT sign 


] 


$CB 


Close Bracket (bus) 


♦ 


$DM 


DiaMond 








H 


$RK 


Right tacK 


c 


$ID 


ImbeD 


1- 


$LK 


Left tacK 


D 


$IN- 


INclusion 


\ 


$GV 


GraVe accent 


n 


$IX 


InterseXion (?!) 


1 


$EV 


Evaluate 


ft 


$LP 


LamP 


T 


$FM 


ForMat 


u 

X 


$UN 
$BV 


UNion 
Base Value 


•» 


$CN 


(reverse indexed 
comma) 


T 


$RP 


Representation 








I 


$IB 


I-Beam 


Special Characters: 




Id) 

> 


$MD 
$SC 


MoDulus 
SemiColon 


CD 


$G. 


(quad -prime 
escape) 


: 


$CL 


CoLon 




$BC 


(canonical 
bad character) 


\ 


$BS 


Backslash 








»5 


$BT 


(reverse indexed 
backslash) 








• 


-- 


comma 








• 


-- 


dot 








/ 


-- 


slash 








/ 


$SM 


(reverse indexed 
slash) 
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NUMERIC REPRESENTATION ON CYBER COMPUTERS 



1. An exact representation for zero exists. 

2. The sum of any selection of any 47 consecutive terms of the power series of 2 

,-1023 ,-1022 „-1021 „-l „0 „1 „1068 „1069 

can be represented exactly. 

3. The negation of any such number can also be represented exactly. 

4. Any number whose magnitude is larger than the sum of the last 47 terms of the above 
series 

(i.e.. 21^^^0-21022) 

cannot be represented, and is not in the domain of definition of any numeric APL function. 

-1023 

5. Any number whose magnitude is less than 2 will be approximated by the represen- 
tation for zero by all numeric APL functions. 

6. All other real numbers will be represented by the exact representation of the approxi- 
mation to the desired value obtained by summing the 47 most significant ternas of the 
value expressed as a power series of 2. 

As a consequence of the above, the following are true: 

• The numbers with the largest magnitude which can be represented in CYBER com- 
puters and for which APL numeric functions are defined are: 

+1.2650140831706E322 i.e., ^'i}^'^^ .'^^'^'^) 

• The numbers with the smallest non-zero magnitude which can be represented in 
CYBER computers exactly are: 

+3. 1316En294 i.e.,+2"102^ 
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INDEX 



Aborting execution and output 11-7 

ABSOLUTE VALUE 7-5 

Active function 12-5 

Active workspace 14-2 

ADDITION 7-8 

AND 7-18 

APL - the language 1-1 

APL*CYBER system 1-2 

Arccos 7-14 

Arccosh 7-14 

Arcsinh 7-14 

Arctan 7-14 

Arctanh 7-14 

Arguments 1-1 

Arrays 2-1 

BASE VALUE 9-8 

Beta function 7-15 

Body of function definition 12-1 

BOOLEAN FUNCTIONS 7-18 

Boolean numbers 5-4 

BRANCH 

monadic 12-3 

niladic 12-3 

Canonical form for expressions 10-5 

Canonical bad character B-1 

CATENATE 6-9 

CEILING 7-5 

Character set B-4 

CIRCLE 

dyadic 7-14 

monadic: PI TIMES 7-5 
CLEAR command 14-3 
COLON (use with labels) 12-4 



COMBINATION 7-15 
Comments (documentation) 13-7 
Composite data displays 4-6 
Composite functions 8-1 
COMPRESS 6-16 
C onf ormability 

singular 5-4 

dual 5-4 

overriding rules 5-5 
CONTINU 

command 14-30 

workspace 14-30 
Coordinates 2-2 
COPY command 14-22 
Correcting an input line 11-7 
Cosh 7-14 
Cosine 7-14 

Data 2-1 

Data types 2-1 

DEAL: dyadic QUERY 9-5 

Decimal form 4-2 

Defined (by user) functions 12-1 

DEFN ERROR 13-1 

Diagonal 6-25 

DIGITS 4-2 

DIGITS command 14-14 

Dimension 2-1 

Displaying 

composite data 4-6 
data 4-1 
expressions 10-5 
function definitions 13-5 
group definition 14-7 
numeric data 4-4 



19980400 A 



Index 1 



DIVIDE 7-9 

Documenting user-defined functions 13-7 

Domain (def'n) 5-2 

DOMAIN ERROR 10-2 

DROP 6-14 

DROP command 14-25 

Dyadic (def'n) 5-2 

Editing 

function definitions 13-1 
input line 11-8 
Element of an array 2-1 
Empty (def'n) 2-4 
Entering input 11-7 
Environment of an active function 
global 12-5 
local 12-5 
EPSILON (dyadic): MEMBERSHIP 9-4 
EQUAL 7-16 
ERASE command 14-8 
Error detection sequence 10-3 
EXPAND 6-18 
EXPONENTIAL 7-3 
Exponential form 4-3 

EXPONENTIATION (dyadic POWER) 7-11 
Expressions 

conversion to internal form 10-1 

displaying 10-5 

error detection sequence 10-2 

input format 10-1 

literal 3-1 

order of evaluation of 10-2 

use of parentheses in 10-1 

use of spaces in 10-1 
EVALUATE 9-12 

FACTORIAL 7-6 
Fill element 6-1 
FLOOR 7-4 
FNS command 14-4 



FORMAT 9-15 
Formatting 

numeric elements 4-2 

numeric data 4-4 
Function 

body 12-1 

call 12-2 

definition 12-1 

editor 13-1 

execution 12-2 

header 12-1 

nested calls 12-6 

primitive 5-1 

user-defined 12-1 
FUZZ 

relative, with relationals 5-8 

absolute 5-11 

Gamma function 7-6 

Global environment 12-5 

Global object 12-5 

Global variable 12-5 

GRADE DOWN 9-7 

GRADE UP 9-6 

GREATER THAN 7-17 

GREATER THAN OR EQUAL 7-17 

GROUP command 14-5 

Group name 14-5 

Groups 14-4 

GRP command 14-7 

GRPS command 14-4 

I-BEAM (system information) 9-17 
Identifiers, rules for forming 3-3 
IDENTITY 7-2 
Identity element 8-3 
Immediate execution 11-1 
INDEX ERROR 10-2 
INDEX OF: dyadic IOTA 9-2 
Index list 6-2 
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Indexed functions 5-7 
INDEXED SPECIFICATION 6-4 
INDEXING 6-2 
INNER PRODUCT 8-6 
Input, entering 11-7 
Integer domain 5-11 
INTERVAL: monadic IOTA 9-1 
IOTA (dyadic): INDEX OF 9-2 
IOTA (monadic): INTERVAL 9-1 

Labels 12-4 

LAMP 13-7 

Length 2-1 

LENGTH ERROR 10-2 

LESS THAN 7-17 

LESS THAN OR EQUAL 7-17 

LIB command 14-28 

Library 

access 14-29 

facilities 14-16 

security 14-30 
Line edit command 11-8 
Line editor 11-8 
LINES command 14-32 
LOAD command 14-20 
LOGARITHM 

dyadic 7-12 

natural (monadic) 7-4 



NEGATION 7-2 

NEGATIVE SYMBOL 3-2 

Nested function calls 12-6 

Niladic BRANCH 12-3 

Niladic functions 12-1 

NOR 7-18 

NOT (monadic TILDE) 7-7 

NOT EQUAL 7-16 

NOT ERASED 14-8 

NOT GROUPED - NAME IN USE 14-5 

NOT SAVED - THIS WS IS WSID 14-18 

NOTATION 

APL syntax 5-1 

special 1-3 
Numeric 

data 2-1 

data formatting 4-4 

element formatting 4-2 

representation on CYBER computers 

OR 7-18 

Ordinals 5-3 

ORIGIN command 14-14 

Origin 5-6 

Origin dependence 5-6 

OUTER PRODUCT 8-8 

Output - see Displaying 

Over strikes B-1 
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Masking 12-5 

Matrix 2-2 

MAXIMUM 7-12 

MEMBERSHIP: dyadic EPSILON 9-4 

MINIMUM 7-13 

Monadic (def'n) 5-2 

Mnemonics for APL characters B-2, 4, 5 

MULTIPLY 7-9 



NAND 7-18 
Natural LOGARITHM 



7-4 



Parentheses in expressions 10-1 

PCOPY command 14-24 

Pendant function 12-6 

PI TIMES (monadic CIRCLE) 7-5 

POWER (dyadic): EXPONENTIATION 



7-11 



QUAD 

in expressions 
input 11-2 

QUAD-PRIME 

escape 11-5 
input 11-5 
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QUERY 

(dyadic): DEAL 9-5 
(monadic): ROLL 7-6 

Range (def n) 5-2 
Rank 

def'n 2-1 

determination 2-5 
RANK ERROR 10-2 
RAVEL 2-3; 6-7 
RECIPROCAL 7-3 
Recursive function calls 12-7 
REDUCTION 8-2 
Referrent 14-5 
REPRESENTATION 9-10 
RELATIONAL functions 7-16, 17 
RESHAPE: dyadic RHO 2-4; 6-8 
RESIDUE 7-10 
Result variable 12-1 
REVERSAL 6-20 
ROLL: monadic QUERY 7-6 
ROTATE 6-22 

SAVE command 14-18 
Scalar 

def'n 2-1 

extension 5-5 

functions 7-1 
Security of user library 14-30 
SEED command 14-15 
Seed 5-13 

Selection function (def'n) 6-1 
SEMICOLON 

in composite displays 4-6 

in index lists 6-2 

in explicit local lists 12-1 
Sequence of execution 10-2 
SHAPE: monadic RHO 2-1; 6-6 
Significant digits 4-2 
SIGNUM 7-2 



Sine 7-14 
Sinh 7-14 
SI 14-9 
SIV 14-11 

Spaces in expressions 10-1 
Special notation 1-3 
SPECIFICATION 
def'n 3-3 
INDEXED 6-4 
multiple 14-5 
State Indicator 14-9 
STOP command 14-12 
Stop list 14-12 
Structure of arrays 2-1 
SUBTRACTION 7-8 
Suspended function 12-7 
Syntax 

primitive function 5-2 

system command 14-1 
SYNTAX ERROR 10-2 
SYSTEM command 14-31 
System Commands 

general 14-1 

)CLEAR 14-3 

)CONTINU 14-30 

)COPY 14-22 

)DIGITS 14-14 

)DROP 14-25 

)ERASE 14-8 

)FNS 14-4 

)GROUP 14-5 

)GRP 14-7 

)GRPS 14-4 

)LIB 14-28 

) LINES 14-32 

)LOAD 14-20 

)ORIGIN 14-14 

)OFF 14-31 

)PCOPY 14-24 

)SAVE 14-18 
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)SEED 14-15 

)SI 14-9 

)SIV 14-11 

)STOP 14-12 

)SYSTEM 14-31 

)VARS 14-3 

)WIDTH 14-32 

)WSID 14-26 
System (APL*CYBER) 1-2 
System information: I-BEAM 9-17 

TAKE 6-12 

Tangent 7-14 

Tanh 7-14 

Terminal access to APL.*CYBER system on Kronos A-1 

Terminating an APL session 14-31 

TILDE (monadic): NOT 7-7 

TRANSPOSE 

dyadic 6-24 

monadic 6-24 

Value 2-1 

VALUE ERROR 10-2 

Variable 

assigning new value to 3-4 

defining 3-3 

referencing 3-3 
VARS command 14-3 
Vector 2-1 
Visual fidelity 11-7 

WIDTH command 14-32 
Workspace 

active 14-2 

identification 14-16 
WS FULL 12-7 
WSID command 14-26 
WS NOT FOUND 14-20 
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